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PREFACE 


This manual is a guide to the use of the Pascal/VS compiler. It explains how to 
compile and execute Pascal/VS programs, and describes the compiler and the operat-— 
ing system features which may be required by the Pascal/VS programmer. It does 
not describe the language implemented by the compiler. 


RELATED PUBLICATIONS 


e Pascal/VS Language Reference Manual, order number SH20-6168. This manual 
describes the Pascal/VS language. 


e IBM Virtual Machine Facility/370: CMS Command and Macro Reference, order num- 
ber GC20-1818. This manual describes the commands of the Conversational Moni- 
tor System (CMS) component of the IBM Virtual Machine Facility/370 with 
detailed reference information concerning command syntax and usage. 


e IBM Virtual Machine Facility/370: CP Command Reference for General Users, 
order number GC20-1820. This manual describes the control processor commands 
of the IBM Virtual Machine Facility/370. 


e IBM Virtual Machine/Personal Computer User's Guide, order number SC24-5254. 
This manual describes describes the VM/PC operating system which runs on the 
IBM Personal Computer XT/370. 


e OS/VS2_ TSO Command Language Reference Manual, order number GC28-0646. This 
manual describes the commands of the Time Sharing Option of OS/VS2. 


e OS/VS2 JCL, order number GC28-0692. This is a reference manual for tha job 
control language of OS/VS2. 


e OS/VS_ Linkage Editor and Loader, order number GC26-3813. This manual 
describes how to use the OS/VS2 linkage editor and loader. 


e Time Sharing Option Display Support and Structured Programming Facility Ver- 
sion 2.2: Installation and Customization Guide, order number SH20-2402. This 
manual describes how to install and modify menus and command procedures of the 
Structured Programming Facility (SPF). Knowledge of the content of this manu- 
al is required to install the Pascal/VS SPF menus and procedures. 


e OS/VS2 MVS Data Management Services Guide, order number GC26-3875. This manu- 
al describes the various data set access methods utilized by O0S5/VS2 and the 0S 
simulation of CMS —- VM/370. 
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SUMMARY OF AMENDMENTS 


RELEASE 2.2 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.2. 


The interactive debugger now supports 32 breakpoints. 


Two new predefined constants have been added to the compiler: MINREAL and 
MAXREAL. 


The LANGLVLCSTDRES) compiler option has been added to allow the user to usa 
the non~standard Pascal/VS reserved words as identifiers. 


A new predefined function, ADDR, accepts a variable name and returns the 
location of that variable in storage. 


Structured array constants may now be passed as the source arrays to PACK and 
UNPACK. 


RELEASE 2.1 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.1. 


A procedure (or function) at any nesting level may now be passed as a routine 
Parameter. The previous restriction which required such procedures to be at 
the outermost nesting level of a module has been removed. 


Two new options may be applied to files when they are opened: UCASE and NOCC. 


Rules have been relaxed in passing fields of packed records by var to a rou- 
tine. 


The "STACK" and “HEAP™ run time options have been added to control the amount 
by which the stack and heap are extended when an overflow occurs. 


The syntax of a "structured constant" which contains non-simple constituents 
has been simplified. 


RELEASE 2.0 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.0. 


Pascal/VS now supports single precision floating point (32 bit) as well as 
double precision floating point (64 bit). 


Files may be opened for updating with the UPDATE procedure. 


Files may be opened for terminal input (CTERMIN) and terminal output CTERMOUT) 
so that I/0 may take place diractly to the user's terminal without going 
through the DDNAME interface. 


The MAIN directive permits you to define a procedure that may be invoked from 
a non-Pascal environment. A procedure that uses this directive is not reen- 
trant. 


The REENTRANT directive permits you to define a procedure that may be invoked 
from a non-Pascal environment. <A procedure that uses this directive is reen- 
trant. 


A new predefined type, STRINGPTR, has been added that permits you to allocate 


strings with the NEW procedure whose maximum size is not defined until the 
invocation of NEW. 


Summary of Amendments v 


e A new parameter passing mechanism is provided that allows strings to be passed 
into a procedure or function without requiring you to specify the maximum size 
of the string on the formal parameter. 


e The maximum size of a string has been increased to 32767 characters. J 
e The Pascal/VS compiler is now fully reentrant. 
e Code produced from the compiler will be reentrant if static storage is not 
modified. 
e Pascal/VS programs may contain source lines up to 160 characters in length. 
e Files may be accessed based on relative record number (random access). 
° Run time errors may be intercepted by the user's program. 
e Run time diagnostics have been improved. 


° Pascal/VS will flag extensions when the option "LANGLVL(STD)" is used. 


° A mechanism has been provided so that Pascal/VS routines may be called from 
other languages. 


e All record formats acceptable to Q@SAM are now supported by the Pascal/VS I70 


facilities. 

e A procedure or function may now be exited by means of the goto statement. 

e You may now declare an array variable where each element of the array is a 
file. 

° You may define a file to be a field of a record structure. 

° Files may now be allocated in the heap (as a dynamic variable) and accessed 


via a pointer. 


e You may now define a subrange of INTEGER which is allocated to 3 bytes of stor- 

age. ’ Control over signed or unsigned values is determined by the subrange. ) 
° Variables may be declared jin the outermost scope of a SEGMENT. These vari- 

ables are defined to overlay the variables in the outermost scope of the main 

program. 


e The PDSIN procedure opens a member of a library file (partitioned dataset) for 
input. 


° The PDSOUT procedure opens a member of a library file (partitioned dataset) 
for output. 


° A procedure or function that is declared as EXTERNAL may have its body defined 
later on in the same module. Such a routine becomes an entry point. 


° The CPAGE percent (%) statement conditionally does a page eject if less than a 
specified number of lines remain on the current listing page. 


° The MAXLENGTH function returns the maximum length that a string variable can 
assume. 


e The “CHECK TRUNCATE option enables Cor disables) the checking for truncation 
of strings. 


e The PASCALVS exec for invoking the compiler under CMS has been modified so 
that the specification of the operands allows greater flexability. 


° New compiler options have been added, namely: LINECOUNT, PXREF, PAGEWIDTH, and 


LANGLVL. 
° The catalogued procedures for invoking Pascal/VS in 0S Batch have been simpli- 
fied. 
) The format of the output listing has been modified so that longer source lines 
may be accomodated. ) 
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Multiple debugger commands may be entered on a single line by using a semico- 
lon (3) as a separator. 


The format of the Pascal File Control Block has been modified. 


Support is now provided for ANSI and machine control characters on output 
files. 


Execution of a Pascal/VS program will terminate after a user determined number 
of non-fatal run time errors. 


The debugger now supports breakpoints at the end of a procedure or function. 


The Trace mode in the debugger provides information on when procedures are 
being exited. 


The TRACE procedure now permits you to specify the file on which the traceback 
is to be written. 


The Equate command of the debugger has been enhanced. 


The debugger will print "uninitialized" when displaying a variable that has 
not been assigned. 


New run time options are provided: SETMEM, ERRCOUNT, and ERRFILE. 
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1.0 INTRODUCTIO 


The Pascal/VS compiler is a processing program which translates Pascal/VS source 
programs, diagnosing errors as it does so, into IBM System/370 machine 
instructions. 

The compiler may be executed under the following operating system environments: 

e 057370 Batch (VS1 and VS2 R3.7) 

° Time Sharing Option (TSO) of OS/VS2 


e Conversational Monitor System (CMS) of Virtual Machine Facility’370 (VM/370) 
Release 5 PLC 2 and later. 


1.1 INVOKING THE COMPILER UNDER CMS: PASCALVS EXEC 


PASCALVS fn Cft Cfm11 | € Coptions] |NOPRINT 
DISK 


[CONSOLE] C3] 
CNOOBJ] 


PRINT ] C[LIB(maclibs)] 


fn is the file name of the source program. 

ft is the file type of the source program; the assumed file type is “"PAS- 

fm is the file mode of the source program. 

maclibs are optional macro libraries required by the “INCLUDE facility. Up to 
eight libraries may be specified. 

options are compiler options. 

PRINT specifies that the listing is to be spooled to the virtual printer. 

NOPRINT specifies that the listing is to be suppressed. 

DISK specifies that the listing is to be stored as a file named "fn 


LISTING." This is the default. 

CONSOLE specifies that the console messages produced by the compiler are be 
stored as a file named "fn CONSOLE.” If CONSOLE is not specified, 
then the messages will be displayed on the terminal console. 


NOOBJ suppresses the production of an object module. 


1.2 BUILDING A LOAD MODULE UNDER CMS: PASCMOD EXEC 


PASCMOD main E[names... 1 £ (€ options... [)1] 


main is the name of the main program module. 


names... are the names of segment modules and text libraries (TXTLIB's) which 
are to be included. 


options... isa list of options. 
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The resulting load module will be given the name "main MODULE A." The load map of 
the module will be stored in "main MAP A." 


The following are recognized as options to the PASCMOD command. 


DEBUG links the debugging routines into the load module so that the interac- 
tive debugger can be used. 


NAME name specifies an alternate name for the load module. The resulting load 
module and map will have the name "name MODULE A" and "name MAP A." 


1.3 _ INVOKING THE LOAD MODULE UNDER CMS 


A Pascal/VS load module is invoked as follows: 
modname [rtparms.../1] [parms...] 


where "modname"” is the name of the load module; "rtparms" are run time options 
(separated by blanks); and "parms™ are the parameters (if any) being passed. 


1.46 INVOKING THE COMPILER UNDER TSO: PASCALVS CLIST 


CLIST NAME OPERANDS 


PASCALVS data-set-name 
[compiler-options-list] 


[ OBJECT (dsname ) J 
NOOBJECT 


PRINT (%) 
PRINT (dsname ) 
SYSPRINT (sysout-class ) 

NOPRINT 


CONSOLE(*) - ] 
CONSOLE(dsname) 


LIB(dsname-list) J 
NOLIB 


data-set-name is the name of the primary input data set. 
compiler-options-list is one or more compiler options separated by blanks 


OBJECT(dsname) specifies the data sat to contain the object modula. 


NOOBJECT specifies that no object module is to be produced. 
PRINT (%) specifies that the compiler listing is to be displayed on the ter- 
minal. 


PRINT(dsname) specifies the data set to contain the compiler listing. 


SYSPRINT(Sysout-class) specifies the sysout class to where the compiler listing is 
to be produced. 


NOPRINT suppresses the compiler listing. 
CONSOLE(*) specifies that compiler messages are to be displayed on the termi- 
nal. 


CONSOLE(dsname) specifies the data set to contain compiler messages. 
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LIB( 'dsname-list’) spacifies a list of *INCLUDE libraries. 


¢ NOLIB specifies that no XINCLUDE libraries are raquired. 
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1.5 BUILDING A LOAD MODULE UNDER TSO: PASCMOD CLIST 


CLIST NAME OPERANDS 


PASCMOD data-set-name or * 


[OBJECT( 'dsname-list')] 
[DEBUG] 
C[LOAD(dsname) ] 


PRINT() 
PRINT (dsname ) ] 


LET XCAL 
NOPRINT ] [ ] 


NOLET NOXCAL 


[LIB( 'dsname-list’)] [FORTLIB] [COBLIB] 


MAP NCAL LIST 
[ NOMAP ] [ NONCAL ] [ NOLIST ] 


XREF REUS REFR 
[ NOXREF ] [ NOREUS ] [ NOREFR ] 


SCTR OVLY RENT 
[ NOSCTR ] [ NOOVLY ] [ NORENT ] 


[ NE [ OL [ pc 


NONE NOOL NODC 
[ TEST 7] [ NOTERM 7] 


NOTEST TERM 


[SIZE('integerl integer2')] 
[DCBS(blocksize)] 
[AC(authorization-code)] 


data-set-name is the data set containing a Pascal/VS object module and/or link- 
age editor control cards. 


OBJECT('dsname-list') specifies a list of data sets which contain additional 
object modules to be included in the link-edit. 


LIB( 'dsname-list') specifies a list of libraries to be searched. 


DEBUG specifies that the Pascal/VS interactive debugger is to be uti- 
lized. 


All other operands of the PASCMOD CLIST are identical to their counterparts in the 
LINK command as described in the TSO Command Language Reference Manual. 
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-6 INVOKING THE LOAD MODULE UNDER TSO: THE CALL COMMAND 


dsnamel (member )1 [ 'Loptions/] [parms]* 1] 


dsname(member ) 


options 


parms 


specifies the name of a partitioned data set and the member where 
the load module to be invoked is stored. 


1S one or more run time options separated by either a comma or a 
blank. 


a parameter string which is to be passed to the program. 


The total length of the quoted string Coptions plus parmsS) must not exceed 100 


characters. 


1.7 INTERACTIVE DEBUGGER 


In order to use Debug, you must follow these four steps: 


e Compile the module to be debugged with the DEBUG option. 


e When link-editing your program, include the debug library. 


° When executing the load module, specify 'DEBUG' as a run time option. 


Description (Abbreviation in capital letters) 


? 
,variable 
Break 
CLEAR 

Cms 
Display 


List all debug commands 

Display the value of a variable 
Set a break point 

Ramove all break points 

Enter CMS subset mode 

Display status 


Display Breaks Display the location of all break points 
Display Equates Display all equate symbols with their current 


Listvars 


Qual 

QUIT 
Reset 

Set Attr 
Set Count 
Set Trace 
Trace 
Walk 


definitions 

Terminate the program (same as QUIT) 

Define an equate symbol 

Begin or resume execution of probram 

List the values of all variables that are local 
to the active routine 

Redefine the "current" qualification 

Terminate the program (same as END) 

Remove a break point 

Display attributes when variables are viewed 

Initiate/terminate statement counting 

Activate/deactive program tracing 

Display a trace back 

Execute a single statement and then prompt for 
another command 
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1.8 COMPILER OPTIONS 


CHECK/NOCHECK 7-7 CHECK 
DEBUG/NODEBUG TT NODEBUG 
GOSTMT/“NOGOSTMT GS/NOGS GOSTMT 
LANGLVLCSTANDARDZ STD LANGLVL CEXTENDED) 
STDRES/ --- 
EXTENDED) EXT 
LINECOUNT(n) LC(n) LINECOUNT(C60) 


LIST/NOLIST aioe NOLIST 

MARGINS (m,n) MAR(m,n) MARGINS(1,72) 
OPTIMIZE/NOOPTIMIZE OPT/NOOPT OPTIMIZE 
PAGEWIDTH(n) PWCn) PAGEWIDTH(128) 
PXREF/NOPXREF -T7 PXREF 
SEQUENCE(m,n)/NOSEQUENCE SEQ(m,n)/NOSEQ SEQUENCE(73,80) 
SOURCE/NOSOURCE S/NOS SOURCE 
WARNING/NOWARNING W/NOW WARNING 
XREF/NOXREF X/NOX XREFCSHORT) 


1.9 RUN TIME OPTIONS 

The following options enable features in the Pascal/VS run time environment in 
which your program will be executing. 

COUNT generates a statement count table and writes it to OUTPUT. 

DEBUG activates the interactive debugger. 


SETMEM initializes local storage of a routine to a specific value on each invoca- 
tion of the routine. 


NOSPIE suppresses the interception of program exceptions. 
NOCHECK causes all checking errors to be ignored. 
ERRFILE = ddname specifies the file to which error diagnostics are to be written. 


ERRCOUNT = number specifies the number of non-fatal run time errors that will be 
permitted prior to terminating the program. The default number is 20. 


MAINT Includes system run time routines in any error trace backs. 


STACK = number specifies the number of kilobytes by which the run time stack is to 
be extended when a stack overflow occurs. 


HEAP = number specifies the number of kilobytes by which the heap is to be extended 
when a heap overflow occurs. 
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1.10 CATALOGED PROCEDURES 


PASCC Compile only -- step name: PASC 

PASCCG Compile, load and execute -- step names: PASC, GO 

PASCCL Compile and link-adit -- step nama: PASC, LKED 

PASCCLG Compile, link-edit, and axecute —-- step names: PASC, LKED, GO 


Data set description stepname.ddname 


source program input PASC.SYSIN? 
*INCLUDE library (PDS) PASC.SYSLIB 
source listing, 
cross-reference listing, PASC .SYSPRINT 
pseudo assembly listing and 
external symbol table listing 
object module PASC.SYSLIN 


load module LKED.SYSLMOD 
linkage-editor control cards LKED.SYSIN# 
linkage-editor load library LKED.SYSLIB 
loader input GO.SYSLIN 
loader library GO.SYSLIB 
file OUTPUT GO.OUTPUT 


This DDname is not defaulted and must be 
explicitly defined. 


1.1 SAMP ATCH JOB 


//jobname JOB 
//STEP1 EXEC PASCCLG, OPTIONS='"XREF(LONG),LIST’ 
7/PASC.SYSIN DD X 


{Program to be compiled goes here} 


7* 

//LKED.SYSIN DD X 
ENTRY PASCALVS 

7% 

//GO.INPUT DD... 
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This section applies only to those who 
are using Pascal/VS under the Conversa- 
tional Monitor System (CMS) of Virtual 
Machine Facility/370 (VM/370). If you 
are not using CMS then you may skip 
this entire section. 


For a description of the syntax nota- 
tion used to describe commands, see 
"Appendix A. Command Syntax Notation” 
on page 167. 


There are four steps to running a Pas- 
cal/VS program under CMS. 


2.1 HOW TO COMPILE A PROGRAM 


PASCALVS fn (ft [fm] 1 


{ Coptions...1] |PRINT 


2.0 RUNNING A PROGRAM UNDER CMS 


1. The program is compiled to produce 
an object module; 


2. A load module is generated from the 
object module; 


3. All files used within the program 
are defined using the FILEDEF com- 
mand; 


4. The load module is invoked. 


DISK 
CNOOBJ] 


| [CONSOLE] 


NOPRINT 


CLIB(maclibs...)] 


Figure 1. 


2.1.1 Invoking the Compiler 


The standard method of invoking the 
Pascal/VS compiler under CMS is by 
means of an EXEC called PASCALVS. 


To compile a Pascal/VS program, the 
EXEC may be invoked in its simplest 
form by the command 


PASCALVS fn 


where "fn" is the file name of the pro- 
gram. If the file type is not explic- 
itly specified, the type "PASCAL" will 
be assumed. 


The compiler translates a source pro- 
gram into object code, which it stores 
in a file. The name of this file is 
identical to the name of the source 
program. Its file type is "TEXT." 


For example, to compile a program which 
resides ina file called "SORT PASCAL," 
the command would be: 


PASCALVS SORT 
If the compilation completes without 


errors, then the file named "SORT TEXT" 
will contain the resulting object code. 


The PASCALVS command of CMS: 


invokes the Pascal/VS compiler. 


2.1.2 The PASCALVS Command 


The generalized form of the PASCALVS 
command is’ illustrated in Figure 1. 
The operands of the command are defined 
as follows: 


fn ft fm 
is the file name, file type, and 
file mode of the source program. 
The file type and file mode are 
optional. The default file type is 
"PASCAL" and the default file mode 
is Le 


maclibs... 
are optional macro libraries 
required by the “INCLUDE facility. 
Up to eight may be specified. 


options... 
are compiler options, see "Compil- 
er Options” on page 31. 


The command options DISP, PRINT, and 
NOPRINT specify where the compiler 
listing is to be placed. 


DISK 


specifies that the listing is to be 
stored as a file on your A disk. 
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The file is named "fn LISTING," 
where "fn" is the file name of the 
source program. This option is the 
default. 


PRINT 
specifies that the listing is to be 
spooled to your virtual printer. 


NOPRINT 
specifies that the listing is to be 
suppressed. This option automati- 
cally forces the following three 
compiler options to become active: 


- AOSOURCE 
- NOXREF 
- NOLIST 


CONSOLE 

specifies that the console mes- 
sages produced by the compiler are 
be stored as a file on your A disk. 
The name assigned to the file is 
"fn CONSOLE." If CONSOLE is not 
specified, then the messages will 
be displayed on your terminal con- 
sole. 


NOOBJ 
Suppresses the production of an 
object module by disabling the code 
generation phase of the compiler. 
This option is useful when you are 
using the compiler only as an error 
diagnoser. 


For an explanation of the possible 
error messages and return codes pro~ 
duced from the EXEC, see "Massages from 
PASCALVS exec" on page 163. 


2.1.3 The “INCLUDE Maclibs 


The macro libraries (maclibs) that may 
be specified when invoking the PASCALVS 
command are those required by the “IN- 
CLUDE facility. When the compiler 
encounters an %INCLUDE statement with- 
in your program it will search the 
maclibs Cin the order in which they 
were specified in the PASCALVS command) 
for the member named. When found, the 
maclib member becomes the input stream 
for the compiler. After the compiler 
has read the entire member, it will 
continue reading in the previous input 
stream Cimmediately following the “IN- 
CLUDE statement). 


The default maclib named PASCALVS need 
not be specified. It is always implic- 
itly provided as the last maclib in the 
search order. 
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2.1.4 Passing Compiler Options 


Compile time options (see "Compiler 
Options™ on page 31) are parameters 
that are passed to the compiler which 
specify whether or not a particular 


feature is to be active. A list of 
compiler options may be spacified in 
the PASCALVS parameter list. The 


options list must be preceded by a left 
parenthesis "(." 


For instance, to compile the program 
"TEST PASCAL" with the debug feature 
enabled and without a cross reference 
table, you would invoke the following 
command: 


PASCALVS TEST ( DEBUG NOXREF 


2.1.5 The Compiler Listing 


The compiler generates a listing of the 
source program with such information as 
the lexical nesting structure of the 
program and cross reference tables. 
For a detailed description of the 
information on the source listing see 
"Source Listings” on page 37. 


2.1.6 Compiler Diagnostics 


Any compiler-detected errors in your 
program will be displayed on your ter~ 
minal console (Cor written to a disk 
file if the CONSOLE options is speci- 
fied). The errors will also be indi- 
cated on your source listing at the 
lines where the errors were detected. 
The diagnostics are summarized at the 
end of the listing. 


When an error is detected, the source 
line that was being scanned by the com- 
piler is displayed on your console. 
Immediately underneath the printed 
line a dollar symbol ('$') is placed at 
each location where an error was detec” 
ted. This symbol serves as a pointer 
to the approximate location where the 
error occurred within the source 
record. 


Accompanying each error indicator is an 
error number. Beginning with the fol- 
lowing line of your console a diagnos- 
tic message is produced for each error 
number, 


For a synopsis of the compiler-gener- 
ated messages see "Pascal/VS Compiler 
Messages" on page 133. 


2.1.7 Sample Compilation 


edit copy pascal 


NEW FILE: 
program copy; 
var 
infile, 
outfile text; 
buffar string(1000}); 


begin 
resetCinfile); 
rawriteCoutfiled; 
while not eoffinfile) do 
begin 
readin(infile, buffer); 
weritelnCoutfile buffer) 
end; 
end. 


EDIT: 


file 

FILE SAVED 

Ry T=0.2570.62 06:56: 44 

pascalvs copy 

INVOKING PASGAL/VS R2.0 

WRITELNCOUTFILE BUFFER) 

Ae 

SOURCE LINES: 16; COMPILE TIME: 


RETURN CODE: 8 
RCO0008); T=0.3470.67 06:56:59 


Figure 2. Sample compilation under CM5 


0.16 SECONDS; 


COMPILE RATE: 6109 LPM 
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ll 


2.2 HOW TO BUILD A LOAD MODULE 


PASCMOD 


main -names ... 1 € (€ options... £)1] 


Figure 3. The PASCMOD command: 


The PASCMOD EXEC generates load modules 
from Pascal/VS object code. If your 
program consists of just one source 
module (that is, you have no segment 
modules), a load module can be genera- 
ted by simply invoking PASCMOD with the 
name of the program. For example, if a 
program named SORT was successfully 
compiled (which implies that "SORT 
TEXT” exists), then a load module may 
be generated with: 


PASCMOD SORT 
The resulting module would be called 
"SORT MODULE.” A load map is stored in 
"SORT MAP.” 


The general form of the PASCMOD command 
is shown in Figure 3. 


The operands of the command are defined 
as follows: 


main 
is the name of the main program 
module. 

names... 
are the names of segment modules 
and text libraries CTXTLIB’s) 
which are to be included. If a 
name "nN" is specified and there are 
two files named mn TEXT and n 


TXTLIB, then the TEXT file will be 
included and the TXTLIB will be 
searched. 


options... 
is a list of options. (see "Module 
Generation Options.") 


The resulting load module will be given 
the name "main MODULE A." The load map 
of the module will be stored in "main 
MAP A." 


The Pascal/VS run time library resides 
in "PASCALVS TXTLIB"™; PASCMOD implic-— 
ithy appends this library to the list 
thet you specify. 
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generates a Pascal/VS load module. 


As an example, let us build a load mod- 
ule for a pre-~compiled program which 
resides in three source modules: MAIN, 
ASEG, and BSEG. This program calls 
routines that reside in a txtlib called 
UTILITY. The following command would 
generate a load module called MAIN MOD- 
ULE: 


PASCMOD MAIN ASEG BSEG UTILITY 


2.2.1 Module Generation Options 


The following are recognized as options 
to the PASCMOD command. 


DEBUG 
specifies that the debugging rou- 
tines are to be linked into the 
load module so that the interactive 
debugger can be used. (See 
"Pascal/VS Interactive Debugger" 
on page 67.) 


NAME name 
specifies an alternate name for the 
load module. The resulting load 
module and map will have the name 
"name MODULE A" and "name MAP A." 


2.2.2 Run time Libraries 


Routines which make up the Pascal/VS 
runtime environment reside in a text 
library called “PASCALVS TXTLIB.” It 
must be present in order to resolve the 
linkages from the program being pre- 
pared for execution. 


The name of the txtlib which contains 
the runtime Debug support is "PASDEBUG 
TXTLIB." (sea "Pascal/VS Interactive 
Debugger" on page 67 for a description 
of Debug). 


2.3 HOW TO DEFINE FILES 


FILEDEF 
FILEDEF 
FILEDEF 
FILEDEF 
FILEDEF 


SYSIN DISK INPUT DATA 


Figure 4, 


Before you invoke the generated load 
module, you must first define the files 
that your program requires. This is 
done with the FILEDEF command. 


The first parameter of the FILEDEF com- 
mand is the file’s ddname. The ddname 
to be associated with a particular file 
variable in your program is normally 
the name of the file variable jtself, 
truncated to eight characters. 


For example, the ddnames for the vari- 
ables declared within the Pascal decla~ 
ration below would be SYSIN, SYSPRINT, 
and OUTPUTFI, respectively. 


var 
SYSIN, 
SYSPRINT 
OUTPUTFILE 


TEXT; 
file of 
INTEGER; 


If a particular file is to be opened 


for input, attributes such as LRECL, 
BLKSIZE, and RECFM are obtained from 
the (presumably) already existing 
file. Note: A file that i5 being 


defined to the terminal requires you to 
explicitly specify RECFM and LRECL on 
the FILEDEF command. 


For the case of files to be opened for 
output, the LRECL, BLKSIZE, or RECFM 
Will be assigned default values if not 
specified. For a description of the 
defaults see "Data Set DCB Attributes" 
on page 45. 


The FILEDEF commands required for each 
of the three file variables in the 


SYSPRINT PRINTER CLRECL 133 RECFM VA 
OUTPUTFI DISK QUTPUT DATA CRECFM F LRECL 4 
OUTPUT TERMINAL CRECFM F LRECL 8&6 

INPUT TERMINAL CRECFM V LRECL 8&0 


Examples of CMS file definition commands 


exampla above and for INPUT and OUTPUT 
could be as shown in Figure 4. 


2.4 HOW TO INVOKE THE LOAD MODULE 


After the module has been created and 
the files defined, you are ready to 
execute the program. This i185 done by 
invoking the module. 


If your program expects to read a 
parameter list via the PARMS function, 
the list must follow the module name: 


modname [parms...] 


where "modname” is the name of the load 
module and "parms" are the parameters 
Cif any) being passed, 


Run time options are also passed as a 
parameter list. To distinguish runtime 
parameters being passed to the 
Pascal/V¥S environment from those that 
your program will read (via the PARMS 
function), the runtime parameter list 
must be terminated with a slash "/." 
The program parameters, if any, must 
follow the "s/s," 


modname (rtparms.../] [parms...1] 
For a description of the run time 


options see "Run Time Options" on page 
35. 
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Programmer's Guida 


This section describes how to compile 
and execute a Pascal/VS program under 
the Time Sharing Option cT50) of 
OS/VS2. If you are not using TSO to 
run the compiler, you may skip this 
section. 


Refer to "Appendix A. Command Syntax 
Notation” on page 147 for a description 
of the syntax notation used to describe 
commands. 


There are four steps to running a Pas- 
cal/VS program. 


3.1 HOW TO COMPILE A PROGRAM 


3.0 RUNNING A PROGRAM UNDER TSO 


1. The program is compiled to form an 
object module; 


2. 4 load module is generated from the 
object module; 


3. All data sets used within the pro- 
gram are allocated; 


4. The load module is invoked. 


PASCALVS 


data-set-name 


[compiler-options-1list] 


: 
| 
: 
| 


Figure 5. PASCALVS CLIST syntax 


3.1.1 Invoking the Compiler 


The Pascal/VS compiler is invoked under 
TSO by means of a CLIST. A sample 
CLIST named PASCALVS is provided to 
compile a Pascal/VS program. 


data-set-name 
specifies the name of the primary 
jnput data set which contains the 
source program to be compiled. 
This can be either a fully quali- 
fied name (Cenclosed in single 
quotation marks) or a simple name 
(to which the user identifica- 


PRINT (#) 
PRINT (dsname ) 


OBJECT(dsname) 
NOOBJECT 


SYSPRINT(sysout-class) 
NOPRINT 


CONSOLE(#) 
CONSOLE(dsname) 


LIB(dsname-list) 
NOLIB 


tion will be prefixed and the 
qualifier "PASCAL" will be suf- 
fixed), This must be tha first 
operand specified. 


compiler-options-list 
specifies one or more compiler 
options. See "Compiler Options" 
on page 31. 


OBJECT (dsname) 
specifies that the object module 
Produced by the compiler is to be 
written to the data set named in 
the parentheses. This can be 
either a fully qualified name 
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Cenclosed within triple quota- 
tion marks 'f!.,.t'')2 or a 
simple name (to which the iden- 
tification qualifier will be 
prefixed and the qualifier OBJ" 
suffixed). 


NOOBJECT 
specifies that no object module 
is to be produced. The compilar 
Will diagnose errors only. 


If neither OBJ nor NOOBJ is spec- 
ified then object module pro- 
duced by the compiler will be 
written to a default data set. 
If the data set specified in the 
first operand contains a 
descriptive qualifier of 
"PASCAL,™ the CLIST will “orm a 
data set name for the object mod- 
ule by replacing the descriptor 
qualifier of the input data set 
with "OBJ." If the descriptive 
qualifier is not "PASCAL," then 
you Will be prompted for the 
object module data set name. 


If the first operand of PASCALYVS 
specifies the member of a parti- 
tioned data set, then the name of 
the associated object module 
will be generated as just 
descrjbed. If the object module 
data set is a partitioned data 
set, then the object module will 
become a member within the PDS 
and will have the same name as 
the member name of the input data 
set. 


As an example, given that the 
user identification is ABC, the 
following commands will produce 
object modules with the name 
shown. 


PASCALVS SORT 
object module: 'ABC,SORT.OBJ 


PASCALVS ‘DEF.PDS.PASCAL (MAIN) 
objact module: 
"DEF.PDS.0BJCMAIN?}' 


PASCALVS "ABC.PROG.PAS' 
user prompted for object 
module nama 


PRINT(#] 
specifies that the compiler 
listing is to be displayed on the 
terminal; no other copy will be 
available. 


PRINT Cdsname } 
specifies that the compiler 
listing is to be written on the 


data set named in the 
Parentheses. This can be either 
a fully qualified name Cenclosed 
within triple quotation marks 
perl .''')2? of a simple name (to 
which the jdentification qual- 
ifier will be prefixad and the 
qualifier "LIST™ suffixed). 


SYSPRINT(sysout-class) 
specifies that the compiler 
listing is to be written to the 
sysout class named jin paranthe- 
ses. 


NOPRINT 
specifies that the compiler 
listing i5 not to be produced. 
This operand activates the fol- 
lowing compiler options: 
NOSOURCE, NOXREF, NOLIST 


CONSOLE([*) 
specifies that the compiler gen- 
erated messages are to be dis- 
Played on the terminal cansole. 
This is the default. 


CONSOLE(dsname) 

specifies that the compiler gen- 
erated messages are to be written 
to the data set named in the 
Parentheses. This can be either 
a fully qualjfied name Cenclosed 
within triple quotation marks 
terol. .t'') or a simple name {to 
which the identification qual- 
ifier will be prefixed and the 
qualifier "CONSOLE" suffixed). 


LIB(dsname-list) 

specifies that tha XINCLUDE 
facility is being utilized. 
Within the parentheses is a list 
of the names of one or more par- 
titioned data sets that ara to be 
searched for members to be 
included within the Input 
stream. 


If the list contains more than 
one name, the entire list must be 
enclosed within quotes. Any ful- 
ly qualified name within the 
quoted list must be enclosed in 
double quotes t'...'*, 


Sea "Using the “INCLUDE 
Facility™ on page 17. 

NOLIEB 
specifies that no XINCLUDE 
libraries are required. This is 


the default. 


Triple quotes are requirad beacause tha CLIST processor removas the outer 


quotes within a keyword sub-operand list. 


Triple quotes are required because the CLIST processor removes thea outar 


quotes within a keyword sub-operand list. 
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J 


Example 1 


Operation: Invoke the Pascal/V¥5 com- 
piler to process a 
Pascal/VS program 


Known: User-identification is ABC 


Data set containing the pro- 
gram is named ABC.SORT.PASCAL 


The compiler listing is to be 
directed to the printer, 


Default options and data set 
names are to be used. 


PASCALVS SORT SYSPRINT(A) 


Example 2 


Operation: Invoke the Pascal/VS com- 
piler to process a 
Pascal/VS program 


Known: User-identification is XYZ 


Data set containing the pro- 
gram 1s named ABC.TEST.PASCAL 


The compiler listing is to be 
directed to a data set named 
XY¥Z.TESTLIST.LIST, 


The long version of the cross 
reference listing is pre- 
ferred. 


Default options and data set 
names are to be used for the 
rest. 


PASCALVS ‘ABC.TEST.PASCAL?* + 
XREFCLONG),PRINTCTESTLIST? 


3.1.2 Using the “INCLUDE Facility 


If the “INCLUDE facility is used within 
the source program, then the names of 
the library or libraries to be searched 
must be listed within the LIB parameter 
of the PASCALVS CLIST. 


The standard include library supplied 
by IBM is called? 


"SYS1.PASCALVS.MACLIB" 


This library must be specified in the 
LIB list if your program contains an 
SINCLUDE statement for one of the IBM 
supplied members. 


When the compiler encounters an 4IN- 
CLUDE statement within the source pro- 
gram, it will search the partitioned 


> The high-level 
installation. 


qualifier name 


CSYSi) may be 


data set(s) in the order specified for 
the member named within the statement. 
When found, the member becomes the 
input stream for the compiier. After 
the compiler has read the entire 
member, it will continue reading from 
the previous input stream immediately 
following the *INCLUDE statement. 


Example 1 


Operation: Invoke the Pasecal/V5 com- 


piler to process a 
Pascal/V5 program which 
utilizes the %INCLUDE 
facility. 


Known: User-identification is P123 


Data set containing the pro- 
gram is named 


"P123.MAIN.PASCAL' 


The source to be jncluded is 
stored in two partitioned 
data sets by the names of 


*P123.PASLIB’ 
'SYS].PASCALVS.MACLIB'. 


Default options and data set 
names are to be used for the 
rest. 


PASCALVS MAIN LIBC'PASLIB,+ 
T'SYS1,PASCALVS.MACLIB*'') 


3.1.3 Compiler Diagnostics 


By default, compiler diagnostics are 
displayed on your terminal, If the 
CONSOLE(dsname) operand appears on the 
PASCALVS command, then the diagnostics 
will be stored in a data set. The 
errors will also be indicated on your 
source listing at the lines where the 
errors were detected. The diagnostics 
are summarized at the end of the list- 
ing. 


When an error is detected, the source 
line that was being scanned by the com- 
piler is printed on your terminal (or 
to the CONSOLE data set}. Immediately 
underneath the printed line, a dollar 
symbol (€'S$') is placed at each location 
where an error was detected. This sym- 
bol serves as a pointer to indicate the 
approximate location where the error 
eccurred within the source record, 


Accompanying e@ach error indicator is an 
error number. Beginning with the fol- 
lowing line of your console a diagnos- 
tic message is produced for each error 
number. 


different at your 
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|For a synopsis of the compiler genera- 
jted messages see "Pascal/VS Compiler 
Messages" on page 133 


OW TO BUT OA ODULE 
CLIST_NAME 


PASCMOD data-set-name or * 


EQBJECT( 'dsname-list')] 
[DEBUG] 
ELOAD(dsname)1 


PRINT(#) 
OPA [ LET J 
NOLET 


[FORTLIBI] 


XCAL 
NOXCAL J 
CCOBLIB] 


ELIB( 'dsname-list’)] 


f OMAP J [ Nonsa J [ LIST ] 
C Noxrer 4 C Noreus ] [ Norere J 
[ SCTR ] [ OVLY ] [ RENT J 
NOSCTR NOOVLY NORENT 
ae Eioee, coe ere. 
Ci TEST ] [ NOTERM ] 
NOTEST ; TERM 


ISIZE("integerl integer2')) 
[DCES (blocks! ze)] 
CAC (author ization-code)] 


Figure &. The TSO PASCMOD CLIST description 


To generate a load module from a This library must be linked into a Pas~ 
Pascal/V5 object module, you may use cal/VS object module in order to 


either the TSO LINK command or a CLIST 
named *PASCMOD" (Figure 6). The CLIST 
performs the same function as the LINK 
command except that it will automati- 
cally include the Pascal/VS runtime 
library in generating the load module. 
Also, if the debugger is to be 
utilized, the CLIST will include the 
Pascal/V¥VS debug library. CA complate 
description of the LINK command is con- 
tained ae the 150 mman Language 
Reference Manual 


* 


Every Pascal/VS object module contains 
references to thea runtime support rou- 
tines. These routines are stored in a 
library called* 


"SY51.PASCALVS.LOAD" 


‘ The high-level qualifier name 
installation. 
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resolve all external referances prop- 
erly. If the PASCMOD CLIST is used, 
this library is included 
automatically. 


If the interactive debugger is to be 
utilized, then the library containing 
the debug environment must be included 
in the linking. The name of this 
library is 


"SYS1.PASDEBUG.LOAD” 


This library must appear ahead of the 
runtime library in search ordar. If 
the PASCMOD CLIST is used, this library 
Will be included if the option DEBUG is 
specified. 


CSY$1) may be different at your 


4 


If more than one object module is being 
linked together, then an entry point 
should be specified by means of a link- 
age editor control card. The name of 
the entry point for any Pascal/VS pro- 
gram is PASCALVS. 


data-set-name 

specifies the name of a data sat 
containing a Pascal/VS object mod- 
ule and/or linkage editor control 
cards. If more than one object 
module is to be linked, then their 
names should appear in the OBJECT 
sub-parameter list. 


You may substitute an asterisk (%) 
for the data set name to indicate 
that you will enter control state- 
ments from your terminal. The sys- 
tem will prompt you to enter the 


control statements. A null line 
indicates the end of your control 
statements. 


OBJECT("dsname-list’) 
specifies a list of data sets which 
contain object modules to be 
included in the link edit. Because 
of CLIST restrictions, the list 
must be enclosed in single quotes; 
fully qualified names within the 
list must be enclosed in double 
quotes (CFF... '), 


LIB('dsname-list'} 

specifies one or more names of 
library data sets to be searched by 
the linkage editor to locate load 
modules referred to by the module 
being processed, that is, to 
resolve external references. The 
name of the Pascal/VS runtime 
library is implicitly appended to 
the end of this list; you need not 
specify it. 


Because of CLIST restrictions, the 
list must be enclosed in single 


quotes; fully qualified names 
within the list must be enclosed in 
double quotes (f'...''), 


DEBUG 

specifies that the Pascal/VS 
interactive debugger is to be uti- 
lized on the resultant load modula. 
This will cause the Pascal/VS debug 
library to be included among the 
libraries to be searched to resolve 
external references. 


All other operands of the PASCMOD CLIST 
are identical to their counterparts in 
the LINK command as described in tha 
SO Command Language Reference Manual. 


Example 


Operation: Create a load module from 
a compiled Pascal/VS pro- 
gram consisting of three 
object modules. 


Known: User-identification is ABC. 
Data sets containing the 
three object modules: 


ABC.SORT.OBJ 
ABC.SEG1.0BJ 
ABC.SEG2.0BJ 


The resulting load module is 
to be stored as a member named 
SORT in a data set named 
ABC.PROGS.LOAD 


(The user's input is in lower case; 
the system replies are 
highlighted. ) 


pascmod * load(€progs(sort)) + 
object('sort,segl,seg2') 

ENTER CONTROL CARDS 

entry pascalvs 


READY 
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3.3 HOW TO DEFINE FILES 


ATTR F80 LRECL(80) BLKSIZE(80) RECFMC(F) 

ALLOC DDNAMECSYSIN) DSNAMECINPUT.DATA) SHR 

ALLOC DDNAMECSYSPRINT) SYSOUTCA) 

ALLOC DDNAMECOUTPUTFI) DSNAMECOUTPUT.DATA) NEW SPACE(100) BLOCK(3120) 
ALLOC DDNAMECOQUTPUT) DSNAMEC%) USINGCF80) 

ALLOC DDNAMECINPUT) DSNAMECX) USINGCF80) 


Examples of TS0 data set allocation commands 


Figure 7. 


For the case of files to be opened for 
output, the LRECL, BLKSIZE, or RECFM 
will be assigned default values if not 
specified via the ATTR command. For a 
description of the defaults see "Data 
Set DCB Attributes" on page 45. 


Before you invoke the generated load 
module, you must first define the files 
that your program requires. This is 
done with the ALLOC command. 


The ddname to be associated with a par- 
ticular file variable in your program 
1s normally the name of the variable 
itself, truncated to eight characters. 


The ALLOC commands required for each of 
the three file variables in the example 
above and for INPUT and OUTPUT could be 
For example, the ddnames for the vari- as shown in Figure 7. 
ables declared within the Pascal decla- 

ration below would be SYSIN, SYSPRINT, 

and OUTPUTFI, respectively. 


var 
SYSIN,; 
SYSPRINT TEXT; 
OUTPUTFILE file of 
INTEGER; 


3.4% INVOKING THE LOAD MODULE 


dsnamel (member )] { ‘'Coptionss] [parms]'" ] 


The TSO CALL command to invoke a load module 


Figure 8. 


"LOAD" is suffixed), or a fully 
qualified name in quotes. 


After the module has been created and 
the files defined, you are ready to 
execute the program. This is done by 
the CALL command (see Figure 8). The 
operands of the CALL command are as 
follows. 


options 
specifies one or more run time 
options separated by either a comma 


dsname(member ) 
specifies the name of a partitioned 
data set and the member where the 


load module to be invoked is 
stored. If the member name is 
omitted, then the member 
"TEMPNAME” will be the load module 
invoked. 


dsname may be either a simple name 
(to which the user identification 
is prefixed and the qualifier 
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or a blank. (See "Run Time Options" 
on page 35.). 


parms 
specifies a parameter string which 
is to be passed to the program. 
The parameter string is retrieved 
from within the program by the 
PARMS function. 


The total length of the quoted string 
Coptions plus parms) must not exceed 
100 characters. 


3.5 SAMPLE 780 SESSION 


READY 
pascalvs lander sysprint(a) list 
INVOKING PASCAL/VS R2.1 
NO COMPILER DETECTED ERRORS 

SOURCE LINES: 47; COMPILE TIME: 0.19 SECONDS; COMPILE RATE: 15032 


READY 


Ppascmod lander load(programs(lander)) 
READY 


alloc ddnamalinput) dsnama(*) 
READY 


alloc ddnameCoutput) dsname(*) 
READY 


call programs(€lander) '‘parms go here 


Figure 9. Sample TSO session of a compila, link-adit, and execution 


Figure 9 is an example of a TS0 sassion the tarminal ara in lower case; those 
which compiles an already existing produced by the system are in upper 
source module, link edits it, and exe- case and high-lighted. 
cutes it. The commands enterad from 
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This section describes how to compile 
and execute Pascal/VS programs in an 0S 
Batch environment. If you are not 
using the compiler under OS Batch then 
you may skip this section. 


4.1 JOB CONTROL LANGUAGE 


Job control language (JCL) is the means 
by which you define your jobs and job 
steps to the operating system; it 
a@€llows you to describe the work you 
want the operating system to do, and to 
specify the intput/Zoutput facilities 
you require. 


The JCL statements which are essential 
to run a Pascal/V§ job are as follows: 


e JOB statement, which 
the start of the job. 


identifies 


§.2 HOW TO COMPILE AND EXECUTE A PROGRAM 


//EXAMPLE JOB 
//STEPI1 EXEC PASCCG,PARM="LIST’ 
/7/PASC.SYSIN DD xX 
program EXAMPLECINPUT,OUTPUT); 
var 

A, 


B: REAL; 
begin 


RESETCINPUT); 
while not EOFCINPUT) do 
begin 
READLNCA,B); 
WRITELNC*’ SUM = 
WRITELNC*® PRODUCT = 
end 


", A+B); 
', AXB); 


7480. INPUT DD * 
3. 0 
3. 14159 1.414 
1.0E-10 2.0E-10 
~10.0 102.0 
7% 


Figure 10. Sample JCL to 


The job control statements shown in 
Figure 10 are sufficient to compile and 
execute a Pascal/VS program consisting 
of one module. This program uses only 
the standard files INPUT and OUTPUT. 
For a more generalized description of 
input/output refer to "How to Access 
Data Sets" on page 29 and "Using 
Input/Output Facilities” on page 45. 


Any options to be passed to the compil- 
er are placed within the PARM string of 
the EXEC statement. 


run a Pascal/VS program 


4.0 RUNNING A PROGRAM UNDER OS BATCH 


° EXEC statement, which identifies a 
job step and, in particular, speci- 
fies the program to be executed, 
either directly or by means of a 


cataloged procedure (described 
subsequently?). 

e DD (Cdata definition) statement, 
which defines the input/output 


facilities required by the program 
executed in the job step. 


° 7% (delimiter) statement, which 
separates data in the input stream 
from the job control statements 
that follow this data. 


A full descr tperon of job control lan- 
guage is iven in the 


OS/VS2 JCL Coc2a- 0692). 


publication 


In the sample JCL, 


"EXAMPLE" is the 
name of the job. The job name identi- 
fies the job within the operating sys- 
tem; it is essential. The parameters 
required in the JOB statement depend on 
the conventions established for your 
installation. 


The EXEC statement invokes the IBM sup- 
plied cataloged procedure named 
PASCCG. When the operating system 
encounters this name, it replaces the 
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EXEC statement with a set of JCL stata- 
ments that have been written previously 
and cataloged ina system library. The 


cataloged procedure contains two 
steps: 
PASC invokes the Pascal/VS compiler 


to produce an object module. 


GO invokes the LOADER to process 
the object module by loading it 
into memory and including the 
appropriate runtime library 


routines. The resulting exe- 
cutable program is immediately 
executed. 


The DD statement named "PASC.SYSIN"® 
indicates that the program to be proc- 
essed in procedure step PASC follows 
immediately in the card deck. "SYSIN" 
is the name that the compiler uses to 
refer to the data set or device on 
which it expects to find the program. 


The delimiter statement /* indicates 
the end of the data. 


The DD statement named "GO.INPUT"™ indi- 
cates that the data to be processed by 
the program Cin procedure step GO) fol- 
lows immediately in the card deck. 


4.3 CATALOGED PROCEDURES 


Regularly used sets of job control 
statements can be prepared once, given 
a name, stored in a system library, and 
the name entered in the catalog for 
that library. Such a set of statements 
is termed a cataloged procedure. A 
cataloged procedure comprises one or 
more job steps (though it is not a job, 
because it must not contain a JOB 
statement). It is included in a job by 
specifying its name in an EXEC state- 
ment instead of the name of a program. 


Several IBM-supplied cataloged proce- 
dures are available for use with the 
Pascal/VS compiler. It is primarily by 
means of these procedures that a 
Pascal/VS job will be run. 


The use of cataloged procedures saves 
time and reduces errors in coding fre- 
quently used sets of job control state- 
ments. If the statements in a 
cataloged procedure do not match your 
requirements exactly, you can easily 
modify them or add new statements for 
the duration of a job. 


It is recommended that each installa- 
tion review these procedures and modi fy 
them to obtain the most efficient use 
ef the facilities available and to 
allow for installation conventions. 
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4. IBM SUPPL c OGE CEDUR 


The standard cataloged procedures sup- 
plied for use with the Pascal/VS com- 
piler are: 


PASCC Compile only 
PASCCG Compile, load-and-execute 
PASCCL Compile and link edit 


PASCCLG Compile, link edit, and exe- 
cute 


These cataloged procedures do not 
include a DD statement for the source 
program; you must always provide one. 
The DDname of the input data set is 
SYSIN; the procedure step name which 
reads the input data set is PASC. For 
example, the JCL statements that you 
might use to compile, link edit, and 
execute a Pascal/VS program is as fol- 
OWS: 


//JOBNAME JOB 
//STEP1 EXEC PASCCLG 
//PASC.SYSIN DD X 


Cinsert Pascal/VS program here 
to be compiled) 


7% 


The listings and diagnostics produced 
by the compiler are directed to the 
device or data set associated with the 
DDname SYSPRINT. Each cataloged proce- 
dure routes DDname SYSPRINT to the out- 
put class where the system messages are 
produced (SYSOUT=). 


The object module produced from a com- 
pilation is normally placed in a tempo- 
rary data set and erased at the end of 
the job. If you wish to save it ina 
cataloged data set or punch it to cards 
then the DDname SYSLIN in procedure 
step PASC must be overridden. For 
example, to compile a program stored in 
data set 


"T123.SORT.PASCAL" 


and to store the resulting object mod- 
ule in a data set named 


"T123.SORT.OBUJ" 
the following JCL might be employed: 


//JOBNAME JOB 


//STEP1 EXEC PASCC 

7/PASC.SYSIN DD DSN=T123.SORT.PASCAL, 
4/ DISP=SHR 
/7PASC.SYSLIN DD DSN=T123.SORT. OBJ, 

4/ UNIT=TSOPACK, 

4/7 DISP=C(NEW,CATLG) 


J 


c 


4.4.1 Compile Only (PASCC) 


7/PASCC PROC SYSOUT='*',INCLLIB='SYS1.PASCALVS.MACLIB' 


17% 


17% INVOKE PASCAL/VS COMPILER 
17% 


7/PASC EXEC PGM=PASCALI,PARM=,REGION=512K 


//QUCODE DD SYSOUT=&SYSOUT 
//0UTPUT DD SYSOUT=&SYSOUT 


//STEPLIB DD DSN=SYS1.PASCALVS.LINKLIB,DISP=SHR 


//SYSLIB DD DSN=&INCLLIB,DISP=SHR 
4/ 


DD DSN=SYS1.PASCALVS.MACLIB,DISP=SHR 
//SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,DISP=(MOD,PASS), 
4/ 


SPACE=CTRK,(2,5)), 


// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB, DSORG=PS) 
//SYSLIST DD UNIT=SYSDA,DISP=(NEW,DELETE), 


/ SPACE=(TRK, (2,5) ) 


//SYSMSGS DD DSN=SYS1.PASCALVS.MESSAGES,DISP=SHR 
//SYSOIN DD UNIT=SYSDA,DISP=(NEW, DELETE), 


// SPACE=(TRK,(2,5)) 


//SYSPRINT DD SYSOUT=&SYSOUT,DCB=(RECFM=VBA,LRECL=133,BLKSIZE=685) 


//SYSTERM DD DUMMY 


//SYSTIN DD UNIT=SYSDA,DISP=(NEW,DELETE), 


SPACE=C(TRK,(2,5)) 


4/ 
//SYSUT1 DD UNIT=SYSDA,DISP=(NEW, DELETE), 
4/ 


SPACE=(TRK,(2,5)), 


// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS) 
//SYSUT2 DD UNIT=SYSDA,DISP=(NEW,DELETE), 


4/ SPACE=CTRK,(2,5)), 


// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS) 
//SYSXREF DD UNIT=SYSDA,DISP=(NEW,DELETE), 
4 


SPACE=C(TRK, (2,5)) 
//UCODE DD SYSOUT=&SYSOUT 


Figure 11. Cataloged procedure PASCC 


This cataloged procedure (Figure 11) 
compiles one Pascal/VS source module 
and produces an object module. It con- 
sists of one step, PASC, which is com- 
mon to all of the cataloged procedures 
described in this chapter. 


Step PASC reads in the source module, 
diagnoses errors, produces a listing, 
and generates an object module to the 
data set associated with DDname SYSLIN. 


The DD statement for the object module 
defines a temporary data set namad 
&&LOADSET. The term MOD is specified 
in the DISP parameter and as a result, 
if the procedure PASCC is invoked 
several times in succession for differ- 
ent source modules, &&LOADSET will 
contain a concatenation of object mod~ 
ules. The linkage editor and loader 
will accept such a data set as input. 
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4.4.2 Compile, Load, and Execute 
(PASCCG) 


//PASCCG 


PROC SYSOQUT=%, INCLLIB='SYS1.PASCALVS.MACLIB’, 


LKLBDSN='SYS1.PASCALVS.LOAD', 
LINKLIB="SYS1.PASCALVS.LINKLIB’ 


Z/PASC EXEC 


PGM=PASCALI,PARM=,REGION=512K 


(this step is identical to the PASC step in procedure PASCC) 


“7/60 EXEC 
//GUTPUT DD 
“/5YSLIB DD 
ff DD 
“/SYSLIN DD 
//SYSLOUT BD 
//SYSPRINT DD 


DSN=&LKLBDSN,DISP=SHR 


SYSOUT=aSYSOUT 


Figure 12, 


In this cataloged procedure 
(Figura 12), the first two steps com- 
pile a Pascal/VS source module to pro- 
duce an object module. In the third 
stap (named 60), the loader is 
axecuted; this program precesses the 
object module produced by the compiler 
and executes the resultant executable 
program immediately. 


The DD statement labeled SYSLIB in step 
60 describes the libraries from which 
external references are to be resolved. 
If you have a library of your own from 
which you would like external refer- 
ances to be resolved, then pass its 
name in the LKLBDSN operand. 


Object modules from previous compila- 
tions may also be included in the load- 
ar's input stream by concatenating them 
in the SYSLIN DD statement. 
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Cataloged protedure PASCCG 


PGM=LOADER,.COND=(8,LE,PASC),PARM="EP=PASCALVS'! 
SYSOUT=&SYSOUT, DCB=(RECFM=VBA,LRECL=133,BLKSIZE=685) 


DSN=SYS1.PASCALVS.LOAD, DISP=SHR 
DSN=&&LOADSET, DISP=COLD, DELETE) 


SYSOUT=&SY50UT, DCB=C(RECFM=VBA,LRECL=133) 


As an example, 6 program in a data set 
named "DOE.SEARCH.PASCAL™ needs to be 
compiled and then loaded with an object 
module named "DOE.SORT.OBJ.™" In addi- 
tion, several external routines are 
called from within the program which 
reside in a library named 
"DOE.MISC.OBJLIB." The following JCL 
statements would compile the program 
and execute it. 


//DOE JOB 

“/STEP1 EXEC PASCCG, 

f/f LKLBDSN='DGE.MISC.QOBJLIB’ 
//PASC,SYSIN DD DSN=DOE.SEARCH.PASCAL, 
ff DISP=SHR 

4/GO.SYSLIN DD 

ff DD DSN=DOE.SORT.OBJ, 

ff DISP=SHR 


4.4.3 Compile and Link Edit (PASCCL) 


7/PASCCL 


PROC SYSOUT=*,INCLLIB='SYS1.PASCALVS .MACLIB', 


LKLBDSN='SYS1.PASCALVS.LOAD', 
LINKLIB="SYS1.PASCALVS.LINKLIB’ 
EXEC PGM=PASCALI, PARM=,REGION=512K 


(this step is identical to the PASC step in procedure PASCC) 


//LKED EXEC 


//SYSLIB DSN=&LKLBDSN,DISP=SHR 


PGM=IEWL,PARM='LIST,MAP',COND=(8,LE,PASC) 


‘7 DSN=SYS1.PASCALVS.LOAD, DISP=SHR 


//SYSLIN 
‘7 DDNAME=SYSIN 
//SYSLMOD 
‘7 SPACE=C(TRK,(5,3,1)) 
//SYSPRINT SYSOUT=&SYSOUT 

//SYSUT1 


Figure 13. 


In this cataloged procedure 
(Figure 13), a Pascal/VS source module 
is compiled to produce an object module 
and then the linkage editor is executed 
to produce a load module. 


The linkage editor step is named LKED. 
The DD statement with the name SYSLIB 
within this step specifies the library, 
or libraries, from which the linkage 
editor will obtain appropriate modules 
for inclusion in the load module. The 
linkage editor always places the load 
modules it creates in the standard data 
set defined by the DD statement with 
the name SYSLMOD. This statement in 
the cataloged procedure specifies a new 
temporary library &&GOSET, in which the 
load module will be placed and given 
the member name GO. 


In specifying a temporary library, it 
is assumed that you will execute the 
load module in the same job; if you 
want to retain the module, you must 
substitute your own statement for the 
DD statement with the name SYSLMOD. 


When linking multiple modules 
together, you must supply ane entry 
point. The name of the entry point may 


//JOBNAME JOB (DOE),'JOHN DOE! 
//STEP1 EXEC PASCC 


Cataloged procedure PASCCL 


DSN=&&LOADSET, DISP=C(OLD, DELETE) 
DSN=&&GOSET(GO),UNIT=SYSDA,DISP=(,PASS), 


UNIT=SYSDA,SPACE=(CYL,(1,1)) 


be either the name of your main 
program, or the name PASCALVS. To 
define an entry point, a linkage editor 
ENTRY control card must be processed by 
the linkage editor. This may be done 
conveniently with a DD statement named 
SYSIN for step LKED which references 
instream data: 


//LKED.SYSIN DD x 
ENTRY PASCALVS 
7% 


Multiple invocations of the PASCC cata- 
loged procedure concatenates object 
modules. This permits several modules 
to be compiled and link edited conven- 
iently in one job. The JCL shown in 
Figure 14 on page 28 compiles three 
source modules and then link edits them 
to produce a single load module. With- 
in the example, each source module is a 
member of a partitioned data set named 


"DOE.PASCAL.SRCLIB1". 


The member names are MAIN, SEG1, and 
SEG2. The resulting load module is to 
be placed in a preallocated library 
named "DOE.PROGRAMS.LOAD" as a member 
named MAIN. 


//PASC.SYSIN DD DSN=DOE.PASCAL.SRCLIB1(MAIN) ,DISP=SHR 


//STEP2 EXEC PASCC 


//PASC.SYSIN DD DSN=DOE.PASCAL.SRCLIB1(SEG1),DISP=SHR 


//STEP3 EXEC PASCCL 


//PASC.SYSIN DD DSN=DOE.PASCAL.SRCLIB1(SEG2),DISP=SHR 
//LKED.SYSLMOD DD DSN=DOE.PROGRAMS.LOAD(MAIN),DISP=0OLD 


//LKED.SYSIN DD x 
ENTRY PASCALVS 
7¥* 


Figure 14. 


Sample JCL to perform multiple compiles and a link edit 
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4.4.4 Compile 


ink Edjt, and Execut 
(PASCCLG) : 


//PASCCLG PROC SYSOUT=%, INCLLIB='SYS1.PASCALVS.MACLIB’, 
4/ LKLBDSN='SYS1.PASCALVS.LOAD', 
7/7 LINKLIB="SYS1.PASCALVS.LINKLIB® 


7/7PASC EXEC 


PGM=PASCALI,PARM=,REGION=512K 


(this step is identical to the PASC step in procedure PASCC) 


//LKED EXEC 


PGM=IEWL,PARM="LIST,MAP',COND=(8,LE,PASC) 


(this step is identical to the LKED step in procedure PASCCL) 


7/G0 EXEC 
//0QUTPUT DD 
//SYSPRINT DD 


Figure 15. 


This cataloged procedure (Figure 15) 
performs a compilation, invokes the 
linkage editor to form a load module 
from the resulting object module, then 
the load module is executed. 
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Cataloged procedure PASCCLG 


PGM=*.LKED.SYSLMOD,COND=((8,LE,PASC),(8,LE,LKED)) 
SYSOUT=&SYSOUT, DCB=(RECFM=VBA, LRECL=133,BLKSIZE=685) 
SYSOUT=&SYSOUT, DCB=(RECFM=VBA,LRECL=133) 


The first two steps of this procedure 
are identical to those of the PASCCL 
procedure. An additional third step 
(named GO) executes your program. 


4.5 HOW TO ACCESS AN “INCLUDE LIBRARY 


The DD statement named SYSLIB in proce- 
dure step PASC defines the libraries 
from which included source is to be 
retrieved. 


When the compiler encounters an %IN- 
CLUDE statement within the source mod- 
ule, it will search the library or 
libraries specified by SYSLIB for the 
member named jin the statement. When 
found, the library member becomes the 
input stream for the compiler. After 
the compiler has read the entire 
member, it will continue where it left 
off in the previous input stream. 


You may specify an “INCLUDE library by 
means of the INCLLIB parameter of the 
cataloged procedures, or by overriding 
the SYSLIB DD statement by specifying a 
DD statement with the name PASC.SYSLIB. 


Example 


//JSOBNAME JOB 

“7 EXEC PASCCG 
//PASC.SYSLIB DD DSN=. 
/7PASC.SYSIN DD x 


.» DISP=SHR 


7% 


4.6 HOW TO ACCESS DATA SETS 


Every file variable operated upon in 
your program must have an associated DD 


statement for the GO step which exe- 
cutes your program. The DDname to be 
associated witha particular file vari- 
able in your program is normally the 
name of the variable itself, truncated 
to eight characters. 


For example, the DDnames for the vari- 
ables declared within the Pascal decla- 
ration below would be SYSIN, SYSPRINT, 
and OUTPUTFI, respectively. 


var 
SYSIN, 
SYSPRINT: TEXT; 
OUTPUTFILE: file of 
INTEGER; 
The file named OUTPUT need not be 


explicitly defined by you if you use 
the cataloged procedures. Both cata” 
loged procedures which execute 
Pascal/VS program (PASCCG and PASCCLG) 
contain a DD statement for OUTPUT. 
OUTPUT is assigned to the output class 
where the system messages and compiler 
listings are produced (SYSOUT=*). 


If the Pascal/VS input/output manager 
attempts to open a data set which has 
an incomplete data control block (DCB), 
it will assign default values to the 
DCB as described in “Data Set DCB 
Attributes" on page 45. If you prefer 
not to rely on the defaults, then the 
LRECL, BLKSIZE, and RECFM should be 
explicitly specified in the DCB operand 
of the associated DD statement for a 
newly created data set (that is, one 
whose DISP operand is set to NEW). 
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7__ EXAMPLE OF A BATCH JOB 


4, 


30 


//JOBNAME JOB 
//STEP1 EXEC PASCC,PARM="NOXREF’ 
7/7PASC.SYSIN DD * 
program COPYFILE; 
type 
F8&0 = file of 
packed arrayl[1..801 of 


ar 
INFILE, OUTFILE: F8&0; 

procedure COPY(var FIN,FOUT: F800); 
external; 

begi 


v 


gin 

RESETCINFILE); 
REWRITECOUTFILE); 
COPYCINFILE,OUTFILE); 


//STEP2 EXEC PASCCLG, PARM='"NOXREF’ 
//PASC.SYSIN DD * 
segment I0; 
type 

F80 = file of 

packed arrayl1..80] of 

procedure COPY(var FIN, FOUT: F80); 

external; 


procedure COPY; 
begin 
while not EOFCFIN) do 
begin 
FOUTa := FINA; 
PUTCFOUT); 
GETCFIN) 


//LKED.SYSIN DD x 
ENTRY PASCALVS 


7% 
//GO.INFILE DD * 


(data to be copied into data set goes here) 


7% 
//GO.OUTFILE DD DSN=P123456. TEMP.DATA,UNIT=TSOUSER, 
4/ DISP=(NEW,CATLG), 

4/7 DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120), 
4/ SPACE=(3120,(1,1)) 


Figure 16. Example of a batch job 
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Compile time options indicate what fea- 
tures are to be enabled or disabled 
when the compiler is invoked. The fol- 
lowing table lists all compiler options 


Compiler Option 


CHECK/NOCHECK CHECK 
DEBUG/NODEBUG <S= NODEBUG 
GOSTMT/NOGOSTMT GS/NOGS GOSTMT 
LANGLVLCSTANDARD)/ LANGLVLC(STD)/ LANGLVLCE*TENDED) 

LANGLVL(STDRES)/ ---/ 

LANGLVL CEXTENDED) LANGLVLCEXT) 

LINECOUNT(n) LCCn) LINECOUNT(60) 
LIST/NOLIST Ss= NOLIST 
MARGINS (m,n) MARCm,n) MARGINS(1,72) 
OPTIMIZE/NOOPTIMIZE OPT/NOOPT OPTIMIZE 
PAGEWIDTH(n) PWCn) PAGEWIDTH(128) 
PXREF/NOPXREF =o PXREF 
SEQUENCE(m,n)/NOSEQUENCE SEQ(m,n)/NOSEQ SEQUENCE(73,80) 
SOURCE/NOSOURCE S/7NOS SOURCE 
WARNING/NOWARNING W/NOW WARNING 


XREF/NOXREF 


5.1 CHECK/NOCHECK 


If the CHECK option is enabled, the 
Pascal/VS compiler will generate 
inline code to perform runtime error 
checking. The %CHECK feature can be 
used to enable or disable particular 
checking code at specific locations 
within the source program. If NOCHECK 
is specified, all runtime checking will 
be suppressed and all %CHECK statements 
will be ignored. The runtime errors 
which may be checked are listed as fol- 
lows: 


CASE statements 
Any case statement that does not 
contain an otherwise clause is 
checked to make sure that’ the 
selector expression has a value 
equal to one of the case label val- 
ues. 


Function routines 
A call to a function routine is 
checked to verify that the called 
function returns a value. 


Pointers 
A reference to an object which is 
based upon a pointer variable is 
checked to make sure that the poin- 
ter does not have the valua nil. 


Subrange scalars 
Variables which are declared as 
subrange scalars are tested when 
they are assigned a value to guar- 


antee that the value lies within 
the declared bounds of the 
variable. This checking may occur 


when either the variable appears on 
the left side of an assignment 


Abbreviated Name Default 


X/NOX 


R_OPTIONS 


with their abbreviated forms and their 
default values. 


XREFCSHORT) 


statement or immediately after a 
routine call in which the variable 
was passed as a Var parameter. 
(This latter case also includes a 
call to the READ procedure). 


For the sake of efficiency, the 
compiler may suppress checking 
when it is able to determine that 
it is semantically unnecessary. 
For example, the compiler will not 
generate code to check the first 
three assignment statements below; 


however, the last three will he 
checked. 
var 
A : -10..10; 
B: 0..20; 
A == B - 103 (no check) 
B := ABSCA); (¥*no check) 
A := B DIV 2; (¥no check) 
Ais B; (¥check *) 
B := A¥10; (¥check *) 
A := -B; (¥check *) 


The compiler makes no. explicit 
attempt to diagnose the use of 
uninitialized variables; however, 
to help you detect such errors, the 
SETMEM runtime option has been pro- 
vided (see “Run Time Options" on 
page 35). 


Subscript ranges 

Subscript expressions within 
arrays or spaces are tested to 
guarantee that their values lie 
within the declared array or space 
bounds. As in the case of subrange 
checks, the compiler will suppress 
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checks that are 
unnecessary. 


semantically 


String truncation 
Assignments to varying length 
strings are checked to make sure 
that the.destination string vari- 
able is declared large enough to 
contain the source string. 


When a runtime checking error occurs; a 
diagnostic message will be displayed on 
your terminal followed by a traceback 
of the routines which were active when 
the error occurred. If the program is 
invoked from OS Batch, the diagnostic 
message and traceback will be sent to 
the data set or device associated with 
DDname SYSPRINT. You may direct the 
error diagnostics to any file of your 
choice with the “ERRFILE" option (see 
"Run Time Options" on page 35). 


See "Reading a Pascal/VS Trace Back" on 
page 61 for an example of a traceback 
due to a checking error. 


"User Handling of Execution Errors” on 
page 64 describes how checking errors 
may be intercepted by your program. 


5.2 DEBUG/NODEBUG 


An interactive debugging facility is 
available to debug Pascal/VS programs. 
The debugger is described in "Pascal/VS 
Interactive Debugger" on page 67. If 
the option DEBUG is enabled, the com- 
piler will produce the necessary infor- 
mation that Debug needs in order to 
operate. 


The DEBUG option also implies that the 
GOSTMT option is active. 


NODEBUG indicates that Debug cannot be 
used for this segment. 


5.3 GOSTMT/NOGOSTMT 


The GOSTMT option enables the inclusion 
of a statement table within the object 
code. The entries within this table 
allow the run-time environment to iden- 
tify the source statement causing an 
execution error. This statement table 
also permits the interactive debugger 
to place breakpoints based on source 
statement numbers. For a description 
of the debugger see "Pascal/VS Interac- 
tive Debugger" on page 67. 


The inclusion of the statement tabla 


does not affect the execution speed of 
the compiled program. 
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NOGOSTMT will prevent the statement 
table from being generated. 


5.4% ANGLVL() 


If LANGLVLCSTANDARD) is specified, the 
compiler will diagnose all constructs 
and features which do not conform to 
"standard" Pascal. Violations of the 
standard will appear as warnings. In 
addition, many of the predeclared iden- 
tifiers hich are unique to Pascal/VS 

ill ot be recognized when 
LANGLVL (STANDARD) is specified. 


If LANGLVLC(STDRES) is specified, the 
compiler will turn LANGLVLCSTANDARD) 
on, and will also not recognize any of 
the non-ANSI-standard Pascal/VS 
reserved words. This means that the 
following Pascal/VS reserved words may 
now be used as identifiers (of course, 
the features they support are lost, 
oo): 


assert 
continue 
def 
leave 
otherwise 
range 
ref 
return 
space 
static 
value 
xor 


LANGLVLCEXTENDED), which is the 
default, specifies that the full 
Pascal/VS language is to be supported. 


-5 LINECOUNTI(N) 


The LINECOUNT option specifies the num- 
ber of lines to appear on each page of 
the output listing. The maximum number 
of lines to fit on a page depends on 
the form to which the output is being 
printed. 


The default is 60 lines to the page. 


-6 IST/NOLIS 


The LIST/NOLIST option controls the 
generation or suppression of the trans- 
lator pseudo-assembler listing (see 
"Assembly Listing” on page 42). 


Note: The NOLIST option will cause any 
“%LIST statement within the source pro- 
gram to be ignored. 


5.7 MARGINS(M,N) 


The MARGINS(m,n) option sets the left 
and right margin of your program. The 
compiler scans each line of your pro- 
gram starting at column m and ending at 
column n. Any data outside these mar- 
gin limits is ignored. The maximum 
right margin allowed is 100 The speci- 
fied margins must not overlap” the 
sequence field. 


The default is MARGINS(1,72). 


Note: When the PASCALVS clist is being 
invoked under TSO, the subparameters of 
the MARGINS option must be enclosed in 
quotes. For example, 


program TEST; 


var 


I,J,K 
begin 
I := 80; 
J r= I * 
J t= 23 
K := I x 
K := 2; 
and. 
Optimized code 
% I = 80; 
LA 03,80 
ST 03,144¢€,13) 
* J t= I * 3; 


MH 03,=H'3' 
ST 03,148¢,13) 


LA 04,2 
ST 04,148¢,13) 


ST 03,152(,13) 
ST 04,152¢,13) 


Figure 17. 
5.9 PAGEWIDTH(N) 


The PAGEWIDTH option specifies the max- 
imum number of characters that may 
appear ona single line of the output 
listing. This number depends on the 
page form and the printer model. 


control characters. 


Sample program to demonstrate code optimization 


integer; 


MARGINSC'1,72') 


5.8 OPTIMIZE/NOOPTIMIZE 


The OPTIMIZE option indicates that the 
compiler is to generate optimized code. 
NOOPTIMIZE indicates that the compiler 
is not to optimize. 


When code is being optimized, the code 
generation phase of the compiler will 
try to eliminate common' subexpres-— 
sions. Instead of evaluating an 
expression each time it occurs in the 
program, the expression will be evalu- 
ated once and saved, if possible, in a 
register. The example in Figure 17 
jllustrates this. 


* I == 80; 

LA 03,80 

ST 03,144(¢,13) 
* J := I * 3; 

L 03,144¢€,13) 


MH 03,=H'3' 
ST 03,148(¢,13) 


LA 03,2 
ST 03,148¢€,13) 


L 03,144¢,13) 
MH 03,=H'3' 
ST 03,152¢,13) 


LA 03,2 
ST 03,152¢,13) 


Differences between OPT and NOOPT 


The default page width is 128 charac” 
ters, with the minimum and maximum page 
widths allowed being 120 and 210 char- 
acters, respectively. 


The number specified in the PAGEWIDTH option does not include carriage 
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5.10 PXREF/NOPXRE 


The PXREF option specifies that the 
right margin of the output listing is 
to contain cross reference entries (see 
"Page Cross Reference Field! on page 
38). NOPXREF suppresses these entries. 


5.11 SEQ(M,N)J/NOSEQ 


The SEQ@(m,n) option specifies which 
columns within the program being com- 
piled area reserved for a sequence 
field. The starting column of the 
sequence field is m; the last column of 
the field isn. 


The compiler does not process sequence 
fields; they serve oanly to identify 
lines in the source listing. If the 
sequence field is blank, the compiler 
will insert a line number in the cor- 
responding area in the source listing. 


NOSE@ indicates that there is to be no 
sequence field. 


The default is SEQ(73,80). 
NOTES: 


e The sequence field must not overlap 
the source margins. 


° When the PASCALVS clist is being 
invoked under TSO, the subparame- 
ters of the SEQ option must be 
enclosed in quotes. For example, 


SEQC'73,80") 


5.12 SOURCE/NOSOURCE 


The SOURCE/NOSOURCE option controls 
the generation or suppression of the 
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compiler source listing. 


Note: The NOSOURCE option will cause 
any %PRINT statement within the source 
program to be ignored. 


13 NG/ RN 


This option controls the generation or 
suppression of warning messages. The 
NOWARNING spacification will suppress 
warning messages from the compiler. 


-14  XREF/NOXREF 


The XREF/NOXREF option controls the 
generation or suppression of the 
cross-reference portion of the source 
listing. (See "Cross-reference List- 
ing" on page 40). 


Either a short or long cross-reference 
listing can be generated. A long 
cross-reference listing contains all 
identifiers declared in the program. A 
short listing consists of only those 
identifiers which were referenced. 


To specify a particular listing mode, 
either the word LONG or SHORT is placed 
after the XREF specification and 
enclosed within parentheses. If no 
such specification exists, SHORT is 
assumed. For example, the specifica- 
tion 


XREFCLONG) 


would cause a long cross-reference 


table to be generated. 


Note: If the PASCALVS clist is being 
invoked under 150, a  subparameter 
CSHORT or LONG) must be specified with 
the XREF option; there are no defaults. 


Features within the Pascal/V¥S run time 
environment may be enable or disabled 
by passing options to the Pascal/vS 
Program. These options are passed to a 
Pascal/¥S program through the parame- 
ter passing mechanism. To distinguish 
run time options from the parameter 
string intended to be processed by the 
Program, the options must preceed the 
Parameter string (if any) and be termi- 
nated with a slash ("/™). 


The following is a list of supported 
run time options. 


COUNT 
specifies that instruction fre- 
quency information is to be col- 
lected during program execution. 
After the program is completed, 
this information is written to file 
OUTPUT. 


Note: This option will only have an 
effact if the program was both com- 
piled and lJlink-edited with the 
DEBUG option. 


DEBUG 
specifies that the interactive 
debugger (see "Pascal/VS Interac-— 
tive Debugger” on page 67) is to 
gain initial control when you 
invoka your program. 


Note: This option is valid only if 
the load module was genarated with 
the DEBUG option (see "Module Gen- 
eration Options" on page 12). 


ERRCOUNT=n 


ERRCOUNT(n) 
specifies how many non-fatal 
errors are allowed to occur before 
the program is abnormally termi- 
nated. The default is 20. 


Note to CMS users: due to the 
&-character tokenization conven- 
tion of CMS, a blank must precede 
the *=' symbol in the ERRCOUNT spe- 
cification. 


Example: 
modname ERRCOUNT =1/ 
ERRFILE=ddname 


ERRFILE(ddname } 

specifies the DDname of the file to 
which all run time diagnostics are 
to be written. Under CMS and TS50, 
diagnostics are displayed on your 
terminal by default. Under 05 
batch, thea default error file is 
SYSPRINT. 


O_R ME OPTIONS 


Note to CMS users: due to the 
&-character tokenization conven- 
tion of CMS, the '=' symbol must be 
surrounded with blanks. 


Example: 
modname ERRFILE = OUTPUT/ 


HEAP = n 
specifies the number of kilobytes® 
that the heap is to be “extended” 
each time the heap overflows. The 
heap is where memory is allocated 
when the procedure NEW is called. 
When the and of the heap is 
reached, the GETMAIN supervisor 
call is invoked to allocate more 
mamory for the haap. If the length 
of the space being required by NEW 
is greater than ""n;' then the 
amount to be allocated will be the 
length of the space rounded up to 
the next kilobyte (1024 bytes). 


There is a8 significant overhead 
penalty for each invocation of GET- 
MAIN. If "nn" is too small, GETMAIN 
will be invoked frequently and the 
execution speed of the program will | 
be affected. If "n™ is too large, 
the heap will contain memory that 
is never used. 


The default HEAP attribute is 12 
kilobytes. 


MAINT 

specifies that when a run time 
error occurs, the trace back is to 
list active run time support rou- 
tines. These routines begin with 
an AMP prefix and are normally sup- 
pressed from the trace back 
listing. This option is used to 
locate bugs within the run time 
environment. 


NOCHECK 
specifies that any checking errors 
detacted within the program are to 
be ignored. 


NOSPIE 
specifies that the Pascal/VS run 
time enviroment is not to issue a 
SPIE request and therefore will not 
intercept program interrupts. 


STACK =n 
specifies the number of kilobytes*® 
that the run time stack is to be 
“extended" each time the stack 
overflows. The run time stack is 
where the dynamic storage area 
CDSA) of a routine is allocated 
when the routine is invoked. When 


$ A "kilobyte" is defined as 1024 bytes in the context of this manual. 
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the end of the stack is reached, 
the GETMAIN supervisor call is 
invoked to allocate more memory for 
the stack. If the length of the 
DSA being required is greater than 
"nh," then the amount to be allo- 
cated will be the length of the DSA 
rounded up to the next kilobyte 
(1024 bytes). 


There is a significant overhead 
penalty for each invocation of GET- 
MAIN. If "n™ is too small, GETMAIN 
will be invoked frequently and the 
execution speed of the program will 
be affdcted. If "n" is too large, 
the stack will occupy more memory 
than is necessary. 
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The default STACK attribute is 12 
kilobytes. 


SETMEM 


specifies that upon entry to each 
Pascal/VS routine, each byte of 
memory in which the routine's local 
variables ara allocated will be set 
to a specific value, nameiy 'FE' 
(hexadecimal). This option aids in 
locating the source of intermit- 
tent errors which occur because of 
the use of uninitialized 
variables. 


c 


: SOURCE LISTING 


PASCAL/VS RELEASE 2.0 UTILITY: 01727781 


BPCI_ STMT # 
INCLUDE 1 FROM SYSLIB 
+ 


type 
NAMEPTR = a@NAMEREC; 
NAMEREC = 
record 


LEFT_LINK, 
RIGHT_LINK: NAMEPTR; 
end; 


def 
TREETOP : NAMEPTR; 


procedure SEARCH( 
const ID: STRING; 
var PTR: NAMEPTR); 
EXTERNAL; 


RRR RR RRR PPR ee 
40 00 ce 06 ca 08 ae oe co on oe oe 


procedure SEARCH; 
var 
LPTR = NAMEPTR; 
$17 


ee 


== TREETOP; 
while LPTR <> nil do 
bagin 
with LPTRA do 
if NAME = ID then 
begin 

PTR := LPTR 
return 


PRR 


NAME then 
:= LEFT_LINK 


== RIGHT_LINK 
end (¥while*) 
end;. 
NUMBER OF ERRORS DETECTED: 2 


DIAGNOSTIC MESSAGES ON PAGE(S): 5 


RPePPPE 
a ed ee ee oe ay 

NUNN 
PReRPRP RRP 


ERROR 8: SEMICOLON ";" EXPECTED 
ERROR 17: ":" EXPECTED 


PARAMETERS PASSED: DISK NOXREF LIB ¢ MACLIB ) 
OPTIONS IN EFFECT: MARGINS(1,72), SEQ(73,80), 


GOSTMT, OPTIMIZE, PXREF, SOURCE, 


NAME * STRING(C30); 


H 


SOURCE PROGRAM 


O READ PASCAL/VS 


14:48:54 


ISTINGS 


PAGE 5 


PAGE XREF 


(GLOBALS ) 
Von to - = bo $22 2---- $= = 3---//--7-V SEQ NO 


LINECOUNT(60), 
WARNING 


SOURCE LINES: 53; COMPILE TIME: 0.43 SECONDS; 


Figure 18. Sample source listing 


100 


ooo 
ooo 


NMP PNM CUOONAOUDWUN 
MoMoadocTc0c0c000 
ec0000c0cC A000 


COTDVTORPrFPRPOOCOCOFT0S0 
— 
o 


ooooo°coeo°o0o ooo0o0o0o00nec ec Cec CceCcC CCC C°o°o 
—~ 
—~ 
Qo 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


COMPILE RATE: 


XA AX K KA KKA 


XADAAD 


x AA 


AAUAUAAD ADAUAAAAAUUA 


CHECK, 


7441 LPM 
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The source listing contains informa- 
tion about the source program including 
nesting information of blocks and cross 
reference information. 


7.1.1 Page Headers 


The first line of every page contains 
the title, if one exists. The title is 
set with the “TITLE statement and may 
be reset whenever necessary. If no 
title has been specified, then the line 
will be bl’ank. 


The second line begins with "PASCAL/VS 
RELEASE x", This line lists informa- 
tion in the following order. 


1. The PROGRAM/SEGMENT name is given 
before a colon. This name becomes 
the name of the control section 
CCSECT) in which the generated 
object code will reside. 


2. Following the colon may be the name 
of the procedure/function defi- 
nition which was being compiled 
when the page boundary occurred. 


3. The time and date of the compile. 
4. The page number. 


The third line contains column 
headings. If the source being compiled 
came from a library Ci.e. *%INCLUDE), 
then the last line of tha heading iden- 
tifies the library and member. 


7.1.2 Nesting Information 


The left margin contains nesting infor- 
mation about the program. The depth of 
nesting is represented by a number. 
The heading over this margin is? 


BPCI STMT 
B - indicates the depth of ‘BEGIN 
block nesting. 
P - indicates the depth of ‘P'rocedure 
nesting. 
C - indicates the nesting of 


"C'onditional statements. Conditional 


statements are if and case. 


I - indicates the nesting of 
'T'terative statements. Iterativa 
statements are for, repeat and while. 


STMT is the heading of a column that 
numbers the executable statements of 
each routine. If the source line orgi- 
nated from an INCLUDE file, the include 
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number and a colon (':') precede the 
statement number. 


7.1.3 Statement Numbering 


Pascal/VS numbers the statements of a 
routine. These numbers are referenced 
when a run time error occurs (see 
"Reading a Pascal/VS Trace Back" on 
page 61) and when break points are spe- 
cified in the interactive debugger (see 
"Pascal/VS Interactive Debugger" on 
page 67). 


All non-empty statements are numbered 
except the repeat statement. However, 
the until portion of a repeat statement 
is numbered. 


A begin/end statement is not numbered 
because it serves only as a bracket for 
a sequence of statements and has no 
executable code associated with it. 


7.1.% Page Cross Reference Field 


If the PXREF compiler option is active, 
the right margin of the listing con- 
tains a cross reference fielc. This 
field contains an indicator for each 
identifier that appears in the associ- 
ated line. The indicators have the 
following meanings: 


e A number indicates a page number on 
which the corresponding identifier 
was declared. 


° A '*" indicates that the correspon- 
ding identifier is being declared. 


° A 'P® indicates that the correspon- 
ding identifier is predefined. 

° A 'R* indicates that the correspon- 
ding identifier is a reserved key 
word. 

° A '?" indicates that the correspon- 


ding identifier is either unde- 
clared, or will be declared further 
on in the program. This latter 
occurrence arises often in pointer 
type definitions. 


7.1.5 Error Summary 


Toward the end of the listing is the 
error Summary. It contains the diag- 
nostic messages corresponding to the 
compilation errors detected in the pro- 
gram. 


7.1.6 Option List 


The option list summarizes the options 
that were enabled for the compilation. 


7,1.7 Compilation Statistics 


The compiler prints summary statistics 
which tell the number of lines 


compiled, the time required, and compi- 
lation rate in lines per minute of 
Cvirtual) CPU time. 


These statistics are divided between 
two phases of the compiler: the syn- 
tax/semantic phase and the code gener- 
ation phase. Also printed is the total 
time and accumulative rate for the sum 
of the phases. 
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7.2 CROSS-REFERENCE LISTING 


cROQS 5 REFERENCE 


INCLUDE 1 CAME FROM MEMBER GLOBALS 


LISTING 


IDENTIFIER DEFINITION ATTRIBUTES <PAGE #>/<INCLUDE #>:<LINE #> 


ID 5720 IN SEARCH, CLASS = CONST PARAMETER, 
TYPE = STRING, OFFSET = 144 
5731 5737 


LEFT_LINK 571:7 IN NAMEREC, CLASS = FIELD, TYPE = POINTER, 
OFFSET = 32, LENGTH = 4 
5738 
LPTR 5724 IN SEARCH, CLASS = LOCAL VAR, TYPE = POINTER, 
OFFSET = 152, LENGTH = 4 
5727 5728 5730 5/733 
5738 5740 
NAME 5/1:6 IN NAMEREC, CLASS = FIELD, TYPE = STRING, 
OFFSET = 0, LENGTH = 32 
5/31 5737 
NAMEPTR 571:3 CLASS = TYPE, TYPE = POINTER, LENGTH = 4 
571:8 571:12 5721 5724 
NAMEREC 571:4 CLASS = TYPE, TYPE = RECORD, LENGTH = 40 
571:3 
NIL PREDEFINED CLASS = CONSTANT, TYPE = POINTER 
5726 5/28 


PTR 5721 IN SEARCH, CLASS = VAR PARAM, TYPE = POINTER, 
OFFSET = 148, LENGTH = 4 
5726 5733 


IN NAMEREC, CLASS = FIELD, TYPE = POINTER, 
OFFSET = 36, LENGTH = 4 

5740 
CLASS = ENTRY PROCEDURE 


CLASS = TYPE, TYPE = STRING 
571:6 5720 


RIGHT_LINK 


SEARCH 
STRING 


5719 


PREDEFINED 


TREETOP 


571:12 CLASS = DEF VAR, TYPE = POINTER, LENGTH = 4 


5727 


Figure 19. Sample cross-reference listing 


The cross reference listing lists where P is the page number on which the 
alphabetically every identifier used reference occurred; 1 is the number of 
in the program giving its attributes the include-member if the reference 
and both the page number and the source took place within the member; l is the 
line number of each reference. line number within the program or 


include-member at which the reference 
If the “INCLUDE facility was used, the occurred. 
cross reference listing will begin by 


listing all of the include-members by The reference immediately following 
name With a reference number. the identifier is the place in the 

source program where the identifier was 
Each reference specification is of the declared. 


following form: 
. The attribute specifications have the 
p/ [is] 1 following meanings. 


IN name 
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If the identifier jis a record 
field, then this attribute speci- 
fies the name of the record in 
which the identifier was declared; 
otherwise, it specifies the name of 
the routine in which the identifier 
was declared. 


CLASS = class 
This attribute gives the class of 
the identifier: 
CONS TANT declared constant 


CONST PARAMETER 
Ppass-by-const parame- 


ter 
DEF VAR external def variable 
ENTRY FUNCTION 
function routine 
declared as an 


external entry point. 


ENTRY PROCEDURE 
procedure routina 
declared as an 
external entry point. 


EXTERNAL FUNCTION 
external function rou- 
tine 


EXTERNAL PROCEDURE 
external procedure 
routine 


FIELD record field 


FORMAL FUNCTION 
function passed as a 
parameter 


FORMAL PROCEDURE 
procedure passed as a 
parameter 


FORTRAN FUNCTION 
external FORTRAN func-— 
tion 


FORTRAN SUBROUTINE 
external FORTRAN sub- 
routine 


FUNCTION a user-defined or 
standard function 


LABEL statement label 
LOCAL VAR automatic variable 
MAIN ENTRY POINT 

procedure declared as 


MAIN whose body is not 
in this module 


PROCEDURE a user-defined or 
standard procedure 


REENTRANT ENTRY POINT 
procedure declared as 
REENTRANT whose _ body 
is not in this module 
REF VAR external ref variable 
STATIC VAR) static variable 
TYPE type identifier 


VAR PARAMETER pass-by-Var  parame- 
ter 


UNDECLARED undeclared identifier 


TYPE = type 


This attributes gives the type of 
the identifier: 


ARRAY an array type 

BOOLEAN boolean type 

CHAR character 

FILE a file type 

INTEGER fixed point numeric 
POINTER a pointer type 

REAL floating point numeric 
RECORD a record type 


SCALAR enumerated scalar or 
subrange 

SET a set type 

SPACE a space type 


STRING a string type 


OFFSET =n 


This attribute specifies the byte 
offset Cin decimal) within the 
dynamic storage area (DSA) of an 
automatic variable or parameter; 
the displacement of a record field 
within the associated record; or, 
the offset in the static area of a 
static variable. 


LENGTH =n 


This attribute specifies the byte 
length of a variable or the storage 
required for an instance of a type. 


VALUE =n 


This attribute specifies the ordi- 
nal value of an integer or enumer- 
ated scalar constant. 
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7.3 ASSEMBLY LISTING 


PASCAL/VS RELEASE 2.0 


UTILITY OQlv27781 10:18:00 PAGE 2 


Loc OBJECT CODE STMT PSEUDO ASSEMBLY LISTING 


LP1l == FHEAD; 
L 


000090 5830 DO90 8 03,144¢€,13) 
000094 5840 3000 9 L 04,0¢,03) 
000098 5040 D094 10 ST 04,148(,13) 
mM LP2 := NIL; 
o0009C 1B33 ll SR 03,03 
OOO09E 5030 Da98 12 ST 03,152¢,13) 
® WHILE LP1l <> NIL DO 
o000A2 130 «a4Ll DS OH 
OO00A2 5830 DO94 14 L 03,1498¢0,13) 
O000AG 1233 15 LTR 03,03 
OO0O0OAS 4780 KEK 16 BE a4Ll2 
x WITH LP1-> DO 
OoooAC 45E0 C860 17 BAL 14,21440,12) 
O000B0 5030 DOADO 18 ST 03,160€,13) 
x BEGIN 
x LP3 := NEXT; 
O00O0B4 5840 3010 19 L 04,16¢,03) 
O000B8 5040 bogyc 20 ST 04,156¢€,13) 
x NEXT := LP2; 
ooogBCcC 5850 D098 21 L 05,152¢€,13) 
ooo0co 5050 3010 22 ST 05,16¢,03) 
x LP2 ‘= LPL; 
oogoc4 5030 Do98 23 ST 03,152¢€,13) 
* LPL := LP3; 
oooocs 50460 bo94 24 ST 04,148¢,13) 
oogdcc 47FO0 2016 25 B a4L1 
O000D0 26 a4Ll2 DS OH 
x END; 
x FHEAD := LP2; 
cooopo 5830 no90 27 L 03,144,13) 
0000D4 5840 bo98 28 L 04,152¢€,13) 
O000D8 5040 3000 29 ST 04,0¢€,03) 


Figure 20. Sample assembly listing 


The compiler produces a pseudo assembly Ward reference) the base displace- 
listing of your program if you specify ment format of the instruction is 
the LIST option. The information pro- shown as four asterisks ('HEXH'), 


vided in this listing include: 
PSEUDO ASSEMELY 


Loc basic assembly languaga 
location relative to the beginning description of generated instrucy 
of the modula in bytes tion. 


(hexadecimal). . 
Annotation 


OBJECT CODE intermixed with the assembly 
up to 6 bytes per line of the gen- instructions is the source line 
erated text. If the line refers to from which tha instructions wera 
a symbol or literal not yet generated. The source lines appear 
encountered in the listing ¢for- as comments in the listing. 
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7.4 EXTERNAL SYMBOL DICTIONARY 


PASCAL/“VS RELEASE 2.0 AMPLXREF: 


EX TERWNAL 


NAME TYPE ID ADDR LENGTH 
AMPLXREF 3D 
XREFEGE LD 
XREFREF LD 
asSTATIC PC 
AMPXPUT ER 
CHARPTR cM 
BOOLPTR 
INCLLEVE 
PROCP 
LINECOUN 
AMPXGET 
SYSPRINT 

AMP XWCHR 
OPTION 

TRIM 


oooood0 


FNOMOOHNCORF 
o 
o 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


oooocqcoeoceea 
ooo90oeocoeocneE“ 


Figure 21. Sample ESD table 


The External Symbol Dictionary (ESD) 
Provides one entry for each name in the 
generated program that is an external. 


This information is required by the 
linker/loader to resolve inter-module 
linkages. The information in this 
table is: 
HAME the name of the symbol. 
TYPE the classification of the sym- 
bol: 
SD - Symbol Definition 
LD - Local Definition 


ER ~ External Reference 
CM - Common 
PC - Private Code. 
ID is the number provided to the 


loader in order to relocate 
address constants correctly. 


SYMBOL 


01727780 13:07:27 


DICTIONARY 


NAME TYPE ID ADDR 
XREF DUMP LD 
XREFINCL LD 
XREFLIST LD 
SYSXREF cM 
INTPTR cM 
REALPTR cM 
PAGENO cM 
INCLNUMB cM 
AMPXRSET ER 
AMPXNEW ER 
PAGEHEAD ER 
AMPXWLIN ER 
AMP XWTXT ER 
AMPXWINT ER 
AMPXWSTR ER 


OO0FC4 
000964 
002040 
ooco00 
000000 


SALA tA OS OOS 
OoOnmocoeoec00c 
ooocecoe 
eoce0eon 
ontoconlnccoce 
ooocofrooe 
RN POR Re =x 


ooococpocecscse 
oooc9ococococeoco 
oooonrqoce0oeo 
ePouTecececs 
gooorceoeooa 
oooocoococn6[ 


ADDR is the offset 


an LD entry. 


in the CSECT for 


LENGTH the size 
CM entry. 


Fhe SD classification corresponds to 
the name of the module; the LD classi- 
fications are entry routines; ER names 
are external routines; CM names corre~ 
spond to def variables. The private 
code section is where static variables 
are located. 


in bytes of the SD or 


7.5 INSTRUCTION STATISTICS 


If Pascal/VS is requested to produce an 
assembly Listing, it will also summa- 
rize the usage of 370 instructions gen- 
erated by the compiler. The table is 
sorted by frequency of occurrance. 
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8.1 1/0 IMPLEMENTATION 


Pascal/VS employs OS access methods to 
implement its input/output facilities. 
Pascal/V¥S file variables are associ- 
ated with a data set by means of a 


DDname. The Queued Sequential Access 
Method (QSAM) jis used for sequential 
data sets. The Basic Partitioned 


Access Method (BPAM) is used for parti- 
tioned data sets (MACLIBs in CMS 
terminology). The Basic Direct Access 
Method (BDAM) is used for random record 
access. 


8.2 DDNAME ASSOCIATION 


For any identifier declared as a simple 
file variable the first eight charac- 
ters of the identifier's name serves as 
the DDname of the file. As a conse- 
quence, the first eight characters of 
all file variables declared within a 
module should be unique. You must also 
be careful not to allow one of the 
first eight characters to be an under- 
score ('_') since this is not a valid 
character to appear in a DDNAME. 


An explicit DDname may be associated 
with a file variable by means of the 
DDNAME option when the file is opened. 
(see "The Open Options" on page 56). 


DDnames should be explicitly specified 
for files which are elements of arrays, 
fields of records, or pointer 
qualified. If the DDname is not 
explicitly specified for such files, a 
DDname of the form "PASCALnn"™ will be 
assigned to the file, where "nn" is a 
two digit integer. 


8.3 DATA SET DCB ATTRIBUTES 


At runtime, associated with every Pas- 
cal/V¥5 file variable is a Data Control 
Block (DCB) which contains information 
describing specific attributes of the 
associated data set. Among these 
attributes are 


* the logical record langth (LRECL); 
+ the physical block size (BLKSIZE); 
. the record format (RECFM). 
Pascal/VS supports all of the record 
formats that are supported by QSAM, 


such as, F, V, U, FB, VB, FBA, VBM, 
etc, 


8.0 USING INPUT/OUTPUT FACILITIES 


A Pascal/VS program will process a file 
that contains ANSI or machine control 
characters at the beginning of each 
logical record (in which case the 
record format would be specified as 
RECFM=...A or RECFM=...M). Each log- 
ical record written to such files will 
be prefixed with the appropriate con- 
trol character. Thus, the first 
character position of each record is 
not directly accessible from the 
Pascal/V5S program. (If the NOCC option 
is specified when the file is opened, 
no control character will be prefixed 
and the first character js accessible. 
See "The Open Options" on page 56.) 


Newly allocated Cempty) data sets, that 
is, data sets intended for output might 
not have these attributes assiqned. As 
far as Pascal/V¥5 is concerned, there 
are two ways to specify the DCB attri- 
butes for such data sets: 


. by being specified in the associ- 
ated DDname definition Cin CMS: the 
FILEDEF command; in TSO: the 


ALLOC/ATTR commands; in OS batch: 
the DD card); 


* by being specified when the file is 
open by means of the options 
string. (see "The Open Options" on 
page 56). 


If any of these attributes are unas- 
Signed for a particular data set to 
which a Pascal/VS program will be writ- 
ing, the Pascal/V5 I/0 manager will 
assign defaults according to whether 
the data set is being managed as a file 
of type "TEXT™ or as a non-text file. 


For the case of text files, if neither 

LRECL, BLKSIZE, nor RECFM are 

specified, then the following defaults 

will apply: 

. LRECL=256 

. BLKSIZE=260 

. RECFM=V 

For the case of non-text files, if nei- 

ther LRECL, BLKSIZE, nor RECFM are spe- 

cifiad then the following defaults will 

apply. 

e LRECL="length of file component" 

° BLKSIZE=LRECL 

. RECFM=F 

If some of the attributes are specified 

and some are not then defaults will be 

applied using the following criteria: 

° RECFM of V is preferred over F for 
text files. 
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* RECFM of F is preferred over V for 
non-text files. 


* If RECFM is F then the BLKSIZE is 
to be equal to the LRECL or to be a 
multiple thereof. 


. If RECFM is V then the BLKSIZE is 
to be at least four bytes greater 
than the LRECL. 


8. TEXT FILES 


Text files contain character’ data 
grouped into logical records, From a 
Pascal/V5 language viewpoint, the log- 
‘ical records are lines of characters. 
Pascal/VS supports both fixed length 
and variable length record fermats for 
text files. Characters are stored in 
EBCDIC. 


The predefined type text is used to 
_declere a text file variable in 
Pascal/VS. The pointer associated with 
each file variable points to positions 
Within a physical I/0 buffer. 


&.5 RECORD FILES 


All non-text files in Pascal/V5S ara 
record files by definition. Input and 
output operations on record files are 
done on a logical record basis instead 
of on a character basig. 


The logical record length C(LRECL) of a 
file must be at least large enough to 
contain the file's base compenent; oth- 
erwise, an execution time error will 
eccur when the file is opened. For 
example, a file variable declared as 
'file@ of INTEGER’ will require the 
associated physical file to have a log- 
ical record length of at least 4 bytes. 


If a file has fixed length records 
CRECFM=F) and the logical record length 
is larger than necessary to contain the 


files compcnent type, then the extra 
Space in each logical record is wasted. 


&.6 OPENING A FILE FOR INPUT - RESET 


To explicitly open a file for input, 
the procedure RESET is used. A call to 
RESET has the forms: 

RESETC Ff) 


or 
RESETC f,options) 
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where "ft" js a file variable and 
“gptions”® is a string which contains 
the open options €see "The Open 
Options™* on page 56). Tha “options” 
parameter may be omitted. 


Normally, RESET allcecates a buffer, 
reads in the first logical record of 
the file into the buffer, and positions 
the file pointer at the beginning of 
the buffer. Therefore, given a text 
file F, the axecution of the statement 
WRESETCFI™ would imply that "Fa" would 
referance the first character of the 
file. 


If a RESET operation is performed on an 
open file, the file is closed and then 
reopened. 


program EXAMPLE; 
var 
SYSIN = TEXT; 
c > CHAR; 


bagin 
CXopen SYSIN for input ¥) 


RESETCSYSIN); 
(*¥get first character of file) 
Cc -= SYSINA@; 

end. 


Figure 22. Using RESET on a text 
file 


8.7 OPENING A FILE 
INPUT 


NTERACTIVE 


Since RESET performs an implicit read 
eperation to fill a file buffer, it is 
not well suited for files intended to 
be associated with interactive input. 
For example, if the file being opened 
is assigned to your terminal, you will 
be prompted for data when the file is 
opaned. This may not be preferable if 
your program is suppose to write out 
prompting messages prior to reading. 


To alleviate this problem, a file may 
be opened for interactive input by spe- 
cifying "INTERACTIVE" in the options 
string of RESET. No initial read oper- 
ation is performed on files opened in 
this manner. Tha fila pointer has the 
valua Mil until the the first fila 
oparation is performed (namely GET or 
READ). The end-of-line condition (sea 
"End of Line Condition" on page 53) is 
initially sat to TRUE. 


J 


Pragram EXAMPLE; 

var 
SYSIN =: TEXT; 
DATA > STRING(80); 

begin 
€¥open SYSIN for interactive ) 
€¥input ®) 
RESETCSYSIN, INTERACTIVE’); 
(*prompt for response x) 
(*¥read in response x) 
WRITELN¢® ENTER DATA: "3; 
READLNCSYSIN,DATA); 

end. 


Figure 23. Gpening a file 
interactive input 


&.8 OPENING A FILE FOR OUTPUT ~- 


REWRITE 


The procedure REWRITE 1s used to open a 
file for output. A call to the proca- 
dure has the forms: 

REWRITEC fF) 


or 
REWRITEC f,options) 


where "" 45 a file variable and 
"options is a string which contains 
the open options (see "Tha Open 


Options” on page 56). The “options” 
parameter may be omitted. 


REWRITE positions the file pointer at 
the beginning of an empty buffer, If 
the file is already open it is closed 
prior to being reopened. 


program EXAMPLE; 
var 
SYSPRINT = TEXT; 
begin 
REWRITECSYSPRINT); 
Gere a ere ES Shea 
end. 


Figure 24, Opening a text file 
with REWRITE 


program EXAMPLE; 
vat 
OUTFILE : file of INTEGER; 
I > INTEGER; 
begin 
REWRITECOUTFILE, 
"BLKSIZE=1600,LRECL=4,RECFM=F'3; 


OUTFILEa := I; 
PUTCOUTFILE); 
end 


Figure 25. Qpening a record file 
with REWRITE 


&.9 TERMINAL INPUT/OUTPUT 


Two procedures are provided for doing 
input and output directly to your ter- 
minal without going through the normal 
DBname interface. Calls to these pro- 
cedures have the forms: 


TERMIN¢ Ff) or TERMIN( f,options) 
TERMOUTCF) or TERMOUT(C F,o0ptions) 


where "Ff" js a text file variable and 
"options" is a string which contains 
the open options (see "The Open 
Qptions™ on page 56). The "options" 
parameter may be omitted. 


The TERMIN procedure opens a text file 
for interactive input from your termi-, 
nal, Likewise, the TERMOUT procedura 
opens a text file for terminal output. 


There is no concept of an and-of-file| 
condition for files opened with TERMIN. 
The EOF function always returns FALSE 
for such files. 


Note: The TERMIN procedure opens the 
file with the INTERACTIVE attribute as 
was described in “"Qpening a File for 
Interactive Input" on page 464. 


program EXAMPLE; 

var 
TTYIN, TTYQUT: text; 
I : INTEGER; 

begin 
TERMINCTTYINI; TERMOUTCTTYOUT); 
WRITELNCTTYOUT,' ENTER DATA: '); 
READLNCTTYIN,I); 


end. 


Figure 26. Terminal input/output 
example 


8.10 OPENING A FILE FOR UPDATE 


The UPDATE procedure is provided for 
opening a record file for updating. In 
this mode, records may be read, modi- 
fied, and then replaced. 4 call to the 
procedure has the forms: 


UPDATEC Ff) 
or 
UPDATECf,options? 
where "f" is a record file variable and 
"options" is a string which contains 
the open options (see "The Open 


Options" on page 56). The "‘options"” 
parameter may be omitted. 


Upon calling UPDATE. a file buffer is 
allocated and the first record of the 
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file is read jnto it. If a subsaquent 
PUT operation is performed on tha file, 
the contents of the buffer will be 
stored back into the file at the 
location from which it was read. 


Each GET operation reads in the next 
subsequent record of the file, <A PUT 
operation will write the record back 
from where the last GET operation 
obtained it. 


Program EXAMPLE; 


var 
F : file of 
record 
NAME: STRING(C30); 
AGE =: 0,.993 
end; 
begin 
UPDATECFI; 
(¥update each record %) 


(* by incrementing aga *) 
While not EQFCF) do 
begin 
Fa.AGE := Fa.AGE + 1; 
PUTCF); 
GETC(F) 
end; 
end, 


Figure 27. Updating a record fila 


&.1 PROCEDURE GET 


The GET procedure is the means by which 
a basic read operation is performed on 
a file, A call to the procedure has 
the form: 


GET(f) 


where "f" is a file variable. 


§.11 GET operation o 


When applied to an input text file, GET 
causes the file pointer to be incra- 
mented by one character position. If 
the fila pointer is positioned at the 
last position of a logical record, the 
GET operation will cause the eand-of- 
line condition to become true (see "End 
of Linea Condition" on page 53) and the 
file pointer will be positioned to a 
blank. If, prior to the call, thea 
end-of-line condition is true, then the 
file pointer will ba positionad to the 
baginning of the naxt logical record. 


If, prior to tha call to GET, the file 
Pointer i183 positioned to the and of the 
last logical record of a text file Cin 
Which case the and-of-line condition 
Will be true) than the and-of-file con- 
dition will becoma trua. (Saae "End of 
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Fila Condition - text filas" on page 
54), 


If GET is attempted on a text file that 
has not been opened, it will be implic-— 
itly opened for input Cas if RESET had 
been called). 


program EXAMPLE; 

var 
INFILE 
€1,¢2 


text; 
CHAR; 


begin 
C¥gat first char of file) 
RESETCINFILE); 


Cl := INFILEa; 

€¥get second char of fila) 
GETCINFILE); 

C2 *= INFILE@; 


end. 


Figure 28. Using GET on ae text 


file 


8.11.2 GET operatian on recard files 


Each call to GET for the case of record 
files reads the next sequential logical 
record into the buffer referenced by 
the file pointer. The end-of-file con- 
dition will become true if there are no 
more records within the file, in which 
ae the file pointer will be set to 
n $ 


A record file must be opened for input 
or update prior to executing a GET 
operation, otherwise, a runtime diag- 
nostic will ba generated. 


program EXAMPLE; 
var 
F : file of 
recorad 
NAME =: STRING(25); 
AGE : Q..99; 
WEIGHT: REAL; 
SEX +: (MALE, FEMALE) 
and; 
begin 
RESETCF); 
While mot EOFCF) do 


begin 
WRITEC® Name: *, 
Fa.NAME); 
WRITEC* Age = *, 
Fa. AGE:3); 


WRITELN; 
GETCF) 
and 
end. 
Figure 23, Using GET on 
files 


8.2 PUT PROCEDURE 


The PUT procedure is the means by which 
a basic write operation is performed on 
a file. A call to the procedure has 
the form: 


PUTC fF) 
where "f" is a file variable. 


The file must be opened for output or 
update prior to calling PUT?; 
otherwise, a runtime diagnostic will 
occur. 


8.12.1 PUT Operation on Text Files 


The PUT procedure, when applied to a 
text file opened for output, causes the 
file pointer to be incremented by one 
character position. If, prior to the 
call, the number of characters in the 
current logical record is equal to the 
file's logical record length (LRECL), 
the file pointer will be positioned 
within the associated buffer to begin a 
new logical record. 


When the file buffer is filled to 
capacity, the buffer jis written to the 
associated physical file. The file 
pointer is then positioned tc the 
beginning of the buffer so that it may 
be refilled on subsequent calls to PUT. 
The capacity of the buffer is equal to 
the filets physical block size 
C(BLKSIZE). 


To terminate a logical record before it 
is full requires a call to WRITELN (see 
"The WRITELN Procedure" on page 53). 


Program EXAMPLE; 
var 
OUTFILE =: text; 
Cc > CHAR; 
begin 
REWRITECOUTFILE); 


OUTFILEa == C; 
(*#Write out value of C#) 
PUTCOUTFILE); 


end. 


Figure 30. Using PUT on a text 
file 


8.12.2 PUT Operation on Record Filas 


The PUT procedure causes the file 
record that was assigned to the output 
buffer via the file pointer to be 
effectively written to the associatad 
physical file. Each call to PUT for 
the case of record files produces one 
logical record. 


program EXAMPLE; 
var 
F: file of 
record 

NAME = STRING(25); 
AGE =: 0..99; 
WEIGHT: REAL; 
SEX <= (MALE, FEMALE) 


; end; ‘ 

begin 

REWRITECF); 

Fa.NAME '= tJohn F. Doe'; 

Fa. AGE *= 36; 

Fa.WEIGHT := 160.0; 

Fa.SEX 7= MALE; 

PUTCF); 
end. 


Figure 31. Using PUT on record 
files 


8.13 TEXT FILE PROCESSING 


8.13.1 Text File READ 


The READ procedure fetches data from a 
text file beginning at the current 
Position of the file pointer. A call 
to the procedure has the forms: 
READC f,¥) 
or 
READC f,vin} 
where "f" is a file variable and "v" is 
a variable which must be of one of the 
following types: 
CHAR Cor a Subrange thereof) 
INTEGER Cor a subrange thereof) 
packed arrayl] of CHAR 
REAL Cor SHORTREAL) 
STRING 


tt is an optional field length Can 
integer expression). The file variable 


? Prior to a PUT operation, the associated output buffer must contain the 


data to be written. If the file 


is not open when the PUT operation is 


attempted, then no output buffer exists. (The file pointer will have the 


value nil.) 
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Ete may be omitted, in which case, tha 
fila INPUT is assumed. 


iA call of the form 
READCf+-vi,ve,...¥n) 
is executed as 


begin 
READC f.v1)35 
READCf,v2); 


READ( f,vn); 
end 


If READ is called for a closad file, 
the file is opened for input by an 
implicit call to RESET. 


Upon executing READ, if the file point- 
er is not yvdt set, an initial GET oper- 
ation is performed. This case occurs 
when a file is opened INTERACTIVELY. 
(see "Opening a File for Interactiva 
Input" on paga 46.) 


When reading INTEGER or REAL data vie 
the READ procedure, and no field length 
is specified, all blanks preceding the 
data are skipped. In addition, logical 
record boundaries will be skipped. If 
the end-cf-file condition should occur 
before & nonblank character is 
detected, an error diagnostic will be 
produced. 


Integer data begins with an eptianal 
Sign Ct+!' or *-') followed by all dig- 
its up to, but not including, the first 
non-digit or up to the end of tha log- 
ical record. 
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For example, given an input file posi- 
tioned at the beginning cf a logical 
record with the following contents: 


951235AN JOSE,.CA 


an integer read operation would bring 
in the value 95123, After tha read, 
the file pointer would be positioned to 
the first 'S* character. 


Real data begins with an optional sign 
CF+" or '=-') and includes all of tha 
following nonblank charactars until 
one 18 detected that does not conform 
to the syntax of 4a real number, 


For example, given an input file posi- 
tioned at the beginning of a logical 
record with tha following contents: 


3.14159/2 


a floating point read operation would 
bring in the floating point value 
3.14159, After the reaad, the file 
pointer would ba positioned to the '/' 
character. 


If a field length value is specified, 
as many characters as are indicated by 
the value will be consumed by the read 


operation. The variable will be 
assigned from the beginning of the 
field. If the field is not exhausted 


after the variable has been assigned 
the data, the rest of the field will be 
skipped. 


program EXAMPLE; 

var 
ZIP > 0..99999; 
MAN - 0..999999; 
BALANCE: REAL; 

begin 
READ(CZIP:5,MAN:6,BALANCE: 9); 
WRITELNC'ZIP = *,ZIP); 
WRITELNC'MAN = ',MAN)D; 
WRITELN(' BALANCE = ', BALANCE: 8:2) 

end. 


Given the following input stream 
from file INPUT: 


951239999991000.00JUNK 


This program produces the following 
on file OUTPUT: 


ZIP 95123 
MAN = 999999 
BALANCE = 1000.00 


Immediately after the READ state- 
ment was executed, file INPUT was 
positioned to the 'N' character. 


Using READ with length 
qualifiers 


Figure 32. 


When reading data into variables 
declared as packed array of CHAR or 
STRING, data is read until one of the 
following three conditions occurs: 


e the variable is filled to its 
declared capacity; 

e an end-of-line condition is detec- 
ted; 


e the field langth Cif specified) is 
exhausted. 


The length of a STRING variable will be 
seat to the number of characters read. 
A variable declared as packed array of 
CHAR will be padded if necessary with 
blanks up to its declared length. 


program DOREAD; 

var 
INFILE 
R 


text; 
arrayll..10] of 
record 
NAME: STRING(25);3 
AGE : 0..99; 
WEIGHT: REAL 
end; 
I => 1..10; 
begin 
RESETCINFILE); 
for I := 1 to 10 do 
with RII] do 
begin 
READCINFILE,NAME, AGE); 
READCINFILE,WEIGHT); 
READLNCINFILE) 
end; 
end. 
Figure 33. Using READ on text 
files 


8.13.2 The READLN Procedure 


A call to READLN has the same form as a 
call to READ and performs the same 
function axcept that after the data has 
been read, all remaining characters 
within the logical record are skipped. 
The procedure is applicable to text 
files only. 


Normally, READLN causes the next log- 
ical record to be read (unless the 
end-of-file is reached) and the file 
pointer is positioned to the beginning 
of the buffer that contains the record. 


In the case of text files opened with 
the INTERACTIVE attribute, the file 
pointer is positioned after the end of 
the logical record and the end-of-line 
condition is set to TRUE. 


If the end-of-line condition is true 
for an interactive file prior toa call 
to READLN and the condition was not the 
result of a previous call to READLN, 
then the call is ignored. Two calls to 
READLN in succession will cause the 
following logical record to be skipped 
in its entirety. 


If READLN is called for a closed file, 


the file is opened implicitly for input 
as though RESET had been called. 
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program COPY; 
var 
INFILE, 


OUTFILE text; 


BUF = STRINGC100); 
begin 
RESETCINFILE); 
REWRITECOUTFILE); 
While not EOFCINFILE) do 
begin 


READCINFILE, BUF); 
WRITELNCOUTFILE, BUF); 
(¥ignore characters after 
column 100 in each line *) 
READLNCINFILE) 
end 
end. 


Using the 
READLN 


Figure 34. procedure 


8.13.3 Text File WRITE 


The WRITE procedure writes data to a 
text file beginning at the current 


position of the file pointer. A call 
to the procedure has the forms: 
WRITECf,@) 
or 
WRITECf,e:n) 
or 
WRITECF,e:nlin2) 
where "f" is a file variable and "e" is 


an expression which must be of one of 
the following types: 


BOOLEAN 
CHAR Cor a subrange thereof) 
INTEGER Cor a subrange thereof) 
packed array[] of CHAR 
REAL Cor SHORTREAL ) 
STRING 
"he" nl,"™ and "n2" are optional field 
lengths Cinteger expressions). The 
file variable "f" may be omitted, in 
which case, the file OUTPUT is assumed. 
A call of the form 
WRITECf,e1,e2,...en) 
is executed as 
begin 
WRITECf,e1); 
WRITECf,e2); 


WRITECf, en); 
end 
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If WRITE is called for a closed file, 
the file is opened implicitly for out- 
put. 


If during a call to WRITE, the length 
of the logical record being produced 
becomes equal to the logical record 
length (LRECL) of the text file, a run 
time error diagnostic will be 
generated. 


If a field length is specified for an 
expression to be written and its value 
is positive, the data will appear right 
justified in the output field. If the 
specified length is negative, the data 
will appear left justified. (The field 
width will be the absolute value of the 
specified length. ) 


String data that is being written with 
a specified field length will be trun- 
cated on the right if the field length 
is too small. 


If no field length is specified, a 
default will be used that depends on 
the data's type: 


data type default field length 
BOOLEAN 10 

CHAR 1 

INTEGER 12 

REAL 20 

SHORTREAL 20 


In addition, expressions of type STRING 
have a default field length equal to 
their current length. Fixed length 
strings (packed array of CHAR) have a 
default equal to their declared length. 


program DOWRITE; 

var 
OUTFILE 
R 


text; 
array({1..10] of 
record 
NAME: STRINGC25); 
AGE : 0..99; 
WEIGHT: REAL 
end; 
I > 1..103 
begin 
REWRITECOUTFILE); 


for I := 1 to 10 do 
with REI) do 
begin 
WRITECOUTFILE,NAME:-30, 
AGE:3,° ")3 
WRITECOUTFILE,WEIGHT:3:90); 
WRITELNCOUTFILE) 
end; 
end. 
Using WRITE on text 
files 


Figure 35. 


8.13.4 The WRITELN Procedure 


The WRITELN procedure is applicable 
only to text files intended for output. 
It causes the current logical record 
being produced to be completed so that 
the next output operation will begin a 
new logical record. 


If the record format of the file is 
fixed (RECFM=F), WRITELN will fill the 
remainder of the current record with 
blanks. For variable length records 
CRECFM=V), the record length is set to 
the number of bytes currently occupied 
by the record. 


If WRITELN is called for a closed file, 
the file is opened implicitly for out- 
put. 


program DOUBLESPACE; 
var 
FILEIN, 
FILEOUT text; 
BUF : STRING; 
begin 
REWRITECFILEOUT); 
RESETCFILEIN); 
While not EOF(FILEIN) do 


begin 
READLNCFILEIN, BUF); 
WRITELNCFILEOUT, BUF); 
(*¥insert blank line *) 
WRITELNCFILEOUT) 
end; 
end. 


Using the WRITELN pro- 
cedure 


Figure 36. 


8.13.5 The PAGE Procedure 


The PAGE procedure causes a page eject 
to occur on a text output file which is 
to be associated with a printer Cor to 
a disk file which will eventually be 
printed). A call to the procedure has 
the following form: 


PAGEC Ff) 


where "f" js a variable of type TEXT 
which has been opened for output. 


If ae logical record is partially 
filled, an implicit WRITELN will be 
performed prior to the page eject. 

For this procedure to produce any 
effect, the first character of each 
logical record of the file must be 
reserved for carriage control. This is 
done by specifying either A (ANSI con- 
trol) or M (machine control) in the 
RECFM attribute for the file. 


If the record format specifies ANSI 
control, then the character '1' will bea 
inserted in the first character posi- 
tion of the record. For machine con- 
trol, a single record is written that 
contains the hexadecimal value of '8&B' 
in its first character position. 


program EXAMPLE; 
text; 


(%start new page) 


PAGE(PRINT); 
end. 


Using the PAGE proce- 


dure 


Figure 37. 


8.13,6 End of Line Condition 


The end-of-line condition occurs on a 
text file opened for input whan the 
file pointer is positioned after the 
end of a logical record. To test for 
this condition, the EOLN function is 
used. 


The end-of-line condition becomes true 
when GET is executed for a file posi- 
tioned at the last character of a log- 
ical record, or if a call to READ 
consumes all of the characters of the 
current logical record. 


The file pointer will always point toa 
blank character (in EBCDIC, hexadeci- 
mal 40) when the end-of-line condition 
occurs. 


The EOLN function is only applicable to 
text files. 


program EXAMPLE; 
var 
SYSIN: text; 
CNT : 0O..32767; 
begin 
(¥ compute length of first 
logical record of SYSIN *) 
RESETCSYSIN); 
CNT == 0; 


While not EOLN(SYSIN) do 
begin 
CNT := CNT + 1; 
GETCSYSIN); 
end; 
WRITELNCCNT) 
end. 


Using the EOLN fune- 


tion 


Figure 38. 
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8.13.7 End of File Condition - text 
files 


The end-of-file condition becomes true 
for a text file when one of the follow- 
ing occurs: 


° RESET is called and the file is 
empty. 


e The file is open for output. 


e GET is called when the file pointer 
is positioned at the end of the 
last logical record of tha file (in 
which case the end-of-line condi- 
tion is true). 


e READ is called and all characters 
of the last logical record were 
consumed. 


When the end-of-file condition occurs, 
the file pointer has the value nil. 


To test for this condition, the EOF 
function is used. 


Any calls to GET or READ for a file for 
which the end-of-file condition is true 
will be ignored. 


program EXAMPLE; 
var 
SYSIN: TEXT; 
CNT : 0..32767; 
begin 
(* compute number of logical 
records in file SYSIN *) 
RESETC(SYSIN); 
CNT == 03 
While not EQFC(SYSIN) do 
begin 
CNT := CNT + 1; 
READLNC(SYSIN) 
end; 
WRITELNCCNT) 
end. 


Figure 39. Using the EOF function 
on a text file 


8.14 RECORD FILE PROCESSING 


8.14.1 Record File READ 


As documented in the language manual, 
the statement 
READCF,V) 


is equivalent to 


begin 
Vo:= Fa; 
GETCF) 
end 
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where F and V are declared as follows: 


var F: file of t; 
Vi t; 


If file F is not open when READ is 
called, an error diagnostic will be 
generated at run time. 


8.14.2 Record File WRITE 


As documented in the language manual, 
the statement 


WRITECF,V) 


is equivalent to 


where F and V are declared as follows: 


var F: file of t; 


t; 


If file F is not open when WRITE is 
called, an error diagnostic will be 
generated at run time. 


Program EXAMPLE; 
type 
REC = record 
NAME = STRING(25); 
AGE : 0..993 
SEX =: (MALE,FEMALE) 
end; 
var 
INFILE, 
OUTFILE: 
file of REC; 
BUFFER : REC; 
begin 
RESETCINFILE); 
REWRITECOUTFILE); 
While not EOFCINFILE) do 
begin 
READCINFILE, BUFFER); 
WRITECOUTFILE, BUFFER) 
end 
end. 


Figure 40. Using READ and 
on record files 


area End of File Condition - Record 
Files 


The end-of-file condition becomes true 
for a record file whan: 


° RESET is called for an empty file. 


J 


J 


° The file is opaned for output. 


° GET is executed for a fila in which 
no more records remain. 


When the end-of-file condition occurs, 
the file pointer has thea value nil. To 
test for this condition, the EOF func- 
tion is used. 


Any calls to GET or READ for a file for 
which the end-of-file condition is true 
will produce an error diagnostic. 


8.15 CLOSING A FILE 


The procedure CLOSE is’ provided to 
close a file explicitly. A call to 
this procedure has the form 


CLOSEC Ff) 
where "f" is a file variable. 


All open files which are declared in 
the body of a routine as simple vari- 
ables are closed implicitly when the 
routine returns to its invoker. All 
files which are open when the program 
terminates, will be closed automati- 
cally by the Pascal/VS runtime 
environment. 


If the variable associated with an open 
file is destroyed prior to program ter- 
mination, the results could be disas- 
trous when Pascal/VS attempts to close 


the file. This problem could occur in 

the following cases: 

° the file variable is an element of 
an array. 


° the file variable is a field of a 
record. 


° the file variable is pointer quali- 
fied Cexists on the heap). 


° a routine which contains local file 
variables is exited with a goto 
statement. 


In these cases, the file variable must 
be closed explicitly with a call to 
CLOSE. 


program EXAMPLE; 
type 
var 
FSTK : arrayf1..8] of 
TEXT; 
DDNAME: STRING(8); 
7 1..83 


I 
begin 


RESETCFSTKLIJ],"DDNAME=" | | DDNAME) ; 


for I := 1 to 8 do 
CLOSECFSTKLIJ); 
end. 


Figure 41. Example of using CLOSE 


8.16 RELATIVE RECORD ACCESS 


Pascal/VS permits records of a record 
file to be accessed in a random order 
by means of the SEEK procedure. A call 
to SEEK has the form 


SEEKCF;n) 


where "f" js a record file that was 
previously opened with RESET, REWRITE, 
or UPDATE; “n" is a positive integer 
expression which corresponds to a 
record number. The the number of the 
first record isl. 


A subsequent call to GET or PUT will 
operate on the "nth" record of the 


file. Each call to GET or PUT there- 
after will operate on subsequent 
records. SEEK does not perform an I/0 


operation. 


At the first call to SEEK, the file is 
implicitly closed and reopened for ran- 
dom access using the Basic Direct 
Access Method (BDAM). The file that is 
to be accessed in this manner must have 
unblocked, fixed-length records; that 
is, the RECFM attribute for the file 
must be "FF." 


Under TSO and OS Batch, the first SEEK 
operation ona file opened with REWRITE 
will cause dummy records to be written 
to the associated data set until the 
file's primary space allocation is 
filled. The record number’ specified 
must not exceed the number of blocks in 
the file's primary space allocation. 


Under CMS, the corresponding FILEDEF of 
a file being accessed with SEEK must 
have the XTENT attribute specified®. 
This attribute specifies the largest 
record number that may be accessed; 
however, it has nothing to do with the 
Space occupied by the file. Thus, a 
FILEDEF specification of the form 


8 If the XTENT attribute is not specified, CMS will default it to 50. 
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FILEDEF F DISK FILE DATACXTENT 65535 


will permit any record in file F to be 
referenced with SEEK, regardless if it 
actually exists. If a record is being 
read that does not exist, CMS will 
return a buffer of zeroes. 


program EXAMPLE; 
type 
REC record 
NAME =: STRINGC25); 
AGE : 0..99; 
SEX =: (MALE, FEMALE) 
end; 
IDX record 
RECNO: 0..MAXINT; 
end 
var 
RECFILE: file of REC; 
IDXFILE: file of IDX; 
begin 
RESETCIDXFILE); 
RESETCRECFILE); 
C¥write out names in order of 
index *) 
While .not EOFCIDXFILE) do 
begin 
SEEKCRECFILE,IDXFILE@.RECNO); 
GETCRECFILE); 
WRITELNCOUTPUT,RECFILEa.NAME) 
GETCIDXFILE); 
end 
end. 


Figura 42. Example of using SEEK 
to access records ran- 
domly 


8.17  PARTITIONED DATA SETS 


8.17.1 Opening a Partitioned Data Set 


To open a partitioned data set (PDS)%, 
the procedures PDSIN and PDSOUT are 
provided. Calls to these procedures 
are of the form 


PDSINC f,options) 
PDSOUTCf,options) 


where "F" js a file variable and 
"options" is a string expression which 
contains open options (see "The Open 
Options"). Unlike the other procedures 
which open files, the options string is 
required and must specify a member name 
CMEMBER=name). 


PDSIN opens the specified member in the 
PDS for input. As in the case of 
RESET, the file pointer {8 made to 


point to a buffer containing the first 
logical record of the file. 


PDSOUT creates a member in the PDS and 
opens it for output. If the member 
already exists, it will be erased and 
then recreated. 


See Figure 44 on page 58 for an example 
of opening a partitioned data set. 


8.17.2 PDS Access in_a CMS Environ- 
ment 


In a CMS environment, members’ of 
MACLIBs may be accessed as partitioned 
data sets via the 0S simulation facili- 
ties. A DDname is assigned to the 
MACLIB file with the FILEDEF command; 
the file name of the maclib must then 
appear ina “GLOBAL MACLIB"™ command. 


For example, in order to access the 
file "MYLIB MACLIB A" as a partitioned 
data set with ddname "LIB" from a Pas- 
cal/VS program, the following commands 
would be executed prior to executing 
the program, 


FILEDEF LIB DISK MYLIB MACLIB A 
GLOBAL MACLIB MYLIB 


Two or more MACLIBs may be accessed as 
though they were concatenated by using 
the CONCAT option of the FILEDEF com- 
mand. For example, in order to access 
the MACLIBs "Mi", "M2", and "M3" as a 
concatenated partitioned data set with 
ddname "LIB," the following commands 
would be executed prior to executing 
the Pascal/VS program. 


FILEDEF LIB DISK M1 MACLIB A 

FILEDEF LIB DISK M2 MACLIB A CCONCAT 
FILEDEF LIB DISK M3 MACLIB A CCONCAT 
GLOBAL MACLIB M1 M2 M3 


8.18 THE OPEN OPTIONS 


All Pascal/VS procedures which open 
files are defined with an optional 


string parameter which contains 
options pertaining to the file being 
opened. These options determine how 


the file is to be opened and what 
attributes jit is to have. 


The data in the string parameter has 
the syntax shown in the following fig- 
ure: 


9 All operations that may be applied to "partition data sets" under OS may 
be applied to MACLIB's and TXTLIB's under CMS. 
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J 


option-string: 


> i —> > 
on a foption} >; —_— 


» 


option: 
DDNAME = name 


BLKSIZE = n ————> 
LRECL 
NocC 


01 — 


RECFM c ———> 


> INTERACTIVE ————> 

> MEMBER=name —————> 

> NAME=fn. ft. fm —————> 

> UCASE —————_> > 
Figure 43. Syntax of opan options 


Not all of these options apply to all 
open procedures. If the option is spa- 
cified for a procedure that is not 
applicable, the option will be ignored. 


The following is a description of each 
option and the context in which it 
applies. 


DDNAME=name 

This attribute signifies that the 
physical file to be associated with 
the file variable has the DDname 
indicated by "name." This new 
DDname will remain associated with 
the file variable even if the file 
is closed and then re-opened. It 
can only be changed by another call 
to a file open routine with the 
DDNAME attribute specified. 


If this option is not specified, 
then the DDname to be associated 
with the file is derived according 
to the following rules: 


° If the file variable is a sim- 
ple variable then the default 
DDname will be the name of the 
variable itself, truncated to 
8 characters. 


° If the file variable is an ele- 
ment of an array, a field of a 
record, or is pointer quali- 
fied, then a DDname will be 
generated of the following 
form: PASCALnn, where "nn" isa 
two digit integer. 


10 
convention, 


The DDNAME option is applicable to 
the following procedures: 


RESET, REWRITE, UPDATE, PDSIN, and 
PDSOUT. 


BLKSIZE=n 
This attribute is used to specify a 
physical block size to be associ- 
ated with an output file. This 
value Cindicated by "N") will over- 
ride a BLKSIZE specification on the 
DDname definition. 


This option is applicable to the 
procedure REWRITE only. 


LRECL=n 
This attribute is used to specify a 
logical record length to be associ- 
ated with an output file. This 
value Cindicated by "n*) will over- 
ride a LRECL specification on the 
DDname definition. 


For files with variable length 
records CRECFM=V), the logical 
record length must include a 4 byte 
length descriptor!®. Thus, if text 
is being written to such a file, 
the LRECL must be 4 bytes longer 
than the longest line to be 
written. 


The LRECL attribute may also be 
used in the TERMIN and TERMOUT pro- 
cedures to specify the length of 
the I/70 buffer. (This will deter- 
mine the maximum length of the line 
to be read from, or written to, 
your terminal.) 


This option is applicable to the 


procedures REWRITE, TERMIN, and 
TERMOUT. 

Nocc 
Normally, the first character 
position of an output file which 


contains ANSI or machine control 
characters (Cas determined by the 
RECFM) is not directly accessible 
to the user program. The data in 
such files is placed at the second 
character position of each record. 


The NOCC option causes such files 
to be treated as though control 
characters are not significant; 
that is, data will be placed within 
each record at the first character 
position. This option allows con- 
trol characters to bea generated 
explicitly. 


This option is applicable to the 
procedure REWRITE. 


RECFM=c 
This attribute is used to specify a 
record format to be associated with 


The 4 byte length descriptor for aach racord of a V-record file is an OS 
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an output file. This specification 
Cindicated by "e") will override a 
RECFM specification on the DDname 
definition. 


This option applies to the proce- 
dures RESET and  PODSIN. (This 
attribute is implied for TERMIN. ) 


MEMBER=name 


Pascal/VS supports all record for- 
mats that Q@SAM supports: 


U CT] JA 
M 


B 
s) 
F |T A 
BS M 
V | BT 
BST 
D [CB] [A] 


For an explanation of each of these 
record formats, consult the publi- 
cation OS/VS2 MVS Data Management 


Services Guide Corder number 
GC26-3875). 


The RECFM specification applies to 
procedure REWRITE. 


This attribute specifies a member 
name of a partitioned data set 
(PDS). The member to be accessed 
is indicated by "name." 


The MEMBER specification is 
required for the procedures PDSIN 
and PDSOUT (see "Partitioned Data 
Sets" on page 56). 


NAME=fn.ft.fm (CMS only) 


This attribute specifies the name 
of a CMS file which is to associ- 
ated with the file variable. This 
option has no affect if the program 
is not running under CMS. 


Wen, WEL, KEM? ara the file name, 
file type and file mode, respec- 
tively, of the CMS file. Each must 
be separated by a period ("."). A 
file mode of "*" is permitted. 


The NAME specification is applica- 
ble to the following procedures: 
RESET, REWRITE, UPDATE, PDSIN, and 
PDSOUT. 


INTERACTIVE UCASE (CMS only) 


This attribute indicates that the 
file is to be opened for input as 
an interactive file. See "Opening 
a File for Interactive Input" on 
page 46 for a description of inter- 
active files. 


program EXAMPLE; 
var 

PDS > TEXT; 

MEMBER =: STRING(8); 

BUF : packed arrayl[i..80] of CHAR; 
begin 


This option causes text that is 
being read from a file opened by 
TERMIN to be translated to upper 
case. This option applies only to 
Programs running under CMS; it is 
ignored otherwise. 


RESETCINPUT, INTERACTIVE’); (¥open INPUT for interactive *) 


(x 


input. %) 


READLNCMEMBER) ; (¥read ist member name *) 
while not EQFCINPUT) do (Xloop until no more members *) 
begin (Xopen member for input ¥*) 


PDSINCPDS, 'DDNAME=SYSLIB,MEMBER=' | | 


MEMBER); 


while not EOFCPDS) do (Xcopy each line of the *) 


begin 
READLNCPDS, BUF); Cx 
WRITELNCBUF); 

end; 


member to file OUTPUT *) 


READLNCMEMBER) (%read next member name *) 


end 
end. 


Figure 44. Using the open options 
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8.19 APPENDING TO A FILE 


Data may be appended to an existing 
file by opening it for output with a 
call to REWRITE and specifying a dispo- 
sition of "MOD" on the corresponding 
DDname definition. 


The following examples illustrate how 
such a disposition is specified under 
the various operating system environ-— 


ments. The DDname of the file is 
"LOG"; the file name is "LOG.DATA."™ 
CMS: 

FILEDEF LOG DISK LOG DATA CDISP MOD 


TSO: 
ALLOC DDNCLOG) DSNCLOG.DATA) MOD 


OS Batch: 
7/LOG DD DSN=ABC.LOG.DATA,DISP=MOD 
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9.1 READING A PASCAL/VS TRACE BACK 


The Pascal/VS trace facility provides 
useful information while debugging 
programs, It gives you a list of all 
of the routines in the procedure chain. 


For each routine the following informa- 
tion is given. 


e The name of the routine. 


° The statement number of the last 
statement to be executed in the 
routine (i.e. the statement number 
of the call to the next routine in 


the chain). 

e The address in storage where the 
generated code for the statement 
begins. 

e The name of the module in which the 


routine is declared. 


The trace routine may be invoked in 
four different ways. You may invoke 
trace by placing in your source program 
a call to the pre-defined routine 
called TRACE. An example is given in 
Figure 45 on page 62. In the example 
starting at the bottom we see that Pas- 
cal/VS called the user's main program 
in the module named HASHASEG. State- 
ment 24 of the main program contains 
the call to READ_ID, statement 3 of 
READ_ID contains the call to SEARCH_ID, 
and so on. 


A trace will be produced when a program 
error occurs. An example is given in 


9.0 RUNTIME ERROR REPORTING 


Figure 46 on page 62. There is) an 
error message indicating a fixed point 
overflow. The traceback tells us the 
routine and the statement number where 
the error occurred. Looking at the 
trace we see that the error occurred at 
statement 3 in routine FACTORIAL on the 
third recursive call. 


A trace will be produced when a check- 
ing error occurs. A checking error 
occurs when code produced by the com- 
piler detects an invalid condition such 
as ae subscript range error. (See 
"CHECK/NOCHECK™ on page 31 for a 
description of compiler generated 
checks.) Figure 47 on page 62 is an 
example of a traceback that occurred 
from a checking error. The first line 
of the trace identifies the particular 
checking error that occurred. Looking 
at the trace we see that the error 
occurred at statement 4 in routine 
TRANSLATE. 


A trace will be produced when an I/0 
error occurs. Figure 4%8 on page 62 is 
an example of this. In this case, 
statement 3. of routine INITIALIZE 
attempted to open a file for which no 
DDNAME definition existed. 


Due to optimization performed by the 
compiler, the code which tests for an 
error condition may be moved back 
saveral statements. Thus, when a run- 
time error occurs, tha statement number 
indicated in the traceback might be 
slightly less than the number of the 
statement from which the error was gen- 
erated. 
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“Trace back of called routines 

Routine stmt at address in module 
TRACE 4 02028C AMPXSENV 
HASHKEY 9 02018C HASHCSEG 
GET_HASH_PTR 2 021208 HASHBSEG 
SEARCH_ID 9 0213C8 HASHBSEG 
READ_ID 3 021550 HASHBSEG 
<MAIN-PROGRAM> 24 020278 HASHASEG 
PASCAL/VS 02048C 


Figure 45. Trace called by a user program 


AMPXO018E Fixed Point Overflow 
Trace back of called routines 

Routine stmt at address in 
FACTORIAL 02014C 
FACTORIAL 02014C 
FACTORIAL 02014C 
<MAIN-PROGRAM> 020298 
PASCAL/VS 02048C 


Figure 46, Trace call due to program error 


AMPX032E High Bound Checking Error | 
Trace back of called routines 


Routine stmt at address in module 
TRANSLATE 4 020154 CONVERT 
TO_ASCII 10 02024C CONVERT 
<MAIN~PROGRAM> 17 020338 CONVERT 
PASCAL/VS 02048C 


Figure 47. Trace call due to checking error 


AMPX0401S File could not be opened: SYSIN 
Trace back of called routines 

Routine stmt at address in module 

INITIALIZE 3 020154 COPY 

<MAIN-PROGRAM> 2 020218 COPY 

PASCAL/VS 02048C 


Figure 48. Trace call due to I/0 error 
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9.2 RUN TIME CHECKING ERRORS 


The following is a list of the possible 
checking errors that may occur in a 
Pascal/VS program at run time. 


Low bound 
Either the value of an array sub- 
script, or the value being assigned 
to a subrange type variable is less 
than the minimum allowed for the 
subscript or subrange. 


High bound 
Either the value of an array sub- 
script, or the value being assigned 
to a subrange type variable is 
greater than the maximum allowed 
for the subscript or subrange. 


Nil pointer 
an attempt was made to reference a 
variable from a pointer which has 
the value nil. 


Case label 
the expression of a case-statement 
has a value other than any of the 
specified case labels and there is 
no otherwise clause. 


String truncation 

the concatenation of two strings 
results in a string greater than 
32767 characters in length, or 
there was an attempt to assign to a 
string a value which has more char- 
acters than the maximum length of 
the string. 


Assertion failure 
an assert statement was executed in 


which its associated boolean 
expression evaluated to the value 
FALSE. 


String subscript out of bounds 
there was an indexing operation on 
a string which was greater than the 
current length of the string. 


Function value 
a function routine returned to its 
invoker without being assigned a 
result. 


9.3 EXECUTION ERROR HANDLING 


Pascal/VS detects many kinds of errors 
during program execution; upon 


detection of an error, tha Pascal/VS 
runtima library will provide error han- 
dling. 


Certain errors are considered fatal by 
the runtime library. Examples of these 
errors are operation exception and pro- 
tection exception. When a fatal error 
eccurs the following happens: 


1. Pascal/VS produces a message 
describing the error; the message 
is displayed on your terminal if 
you are executing in VM/CMS or TSO, 
or written to DDname SYSPRINT oth- 
erwise. 


2. A trace back is displayed. 


3. The program execution is termi- 
nated. 
Other errors such as checking errors 


will not stop program execution. You 
must determine the extent to which the 
non-fatal errors affect your program 
results. Pascal/VS performs the fol- 
lowing actions when a non-fatal error 
occurs. 


1. <A message describing the error is 
produced; the message is displayed 
on your terminal if you are execut- 
ing in VM/CMS or TSO, or written to 
DDname SYSPRINT otherwise. 


2. A trace back is generated. 


3. If the program was compiled and 
linked with the "DEBUG' option and 
the program was not executed with 
the 'DEBUG' run time option, then a 
symbolic dump of the variables in 
the procedure experiencing’ the 
error Will be produced; the dump is 
displayed on your terminal if you 
are executing in VM/CMS or TSO, or 
written to DDname SYSPRINT other- 
wise. 


4. If the program was compiled and 
linked with the "DEBUG" option and 
the program was executed with the 
"DEBUG' run time option then the 
interactive symbolic debugger will 
be invoked as if a breakpoint had 
been encountered. 


Pascal/VS will allow a specific number 
of non~fatal errors to occur before the 
program is terminated. This number is 
set by the ERRCOUNT run time option 
Csee “Run Time Options” on page 35). 
The default is 20. 
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9.4 USER HANDLING OF EXECUTION ERRORS 


(% 


(* 


type 
ERRORTYPE = 1... 90; 
ERRORACTIONS = ¢ 
XHALT, 
XPMSG, 
XUMSG, 
XTRACE, 
XDEBUG, 
XDECERR, 
XRESERVED6, 
XRESERVED7, 
XRESERVED8, 
XRESERVED9, 
XRESERVEDA, 
XRESERVEDB, 
XRESERVEDC, 
XRESERVEDD, 
XRESERVEDE, 
XRESERVEDF); 


ERRORSET = set of ERRORACTIONS; 
procedure ONERROR( 


const FERROR ERRORTYPE; 
const FMODNAME ALPHA; 
const FPROCNAME ALPHA; 
const FSTMTNO INTEGER; 
var FRETMSG STRING; 


var FACTION 
EXTERNAL 3 


ERRORSET)3 


Contents of 


Figure 49. 


Pascal/VS provides a mechanism for you 
to gain control when an execution time 
error occurs. When such an- error 
occurs, a procedure called 'ONERROR' is 
called to perform any necessary action 
prior to generating a diagnostic. A 
default ONERROR routine is provided in 
the Pascal/VS library which does noth- 
ing. 


You may write your own version of ONER- 
ROR and declare it as an EXTERNAL pro- 
cedure. The procedure will be invoked 
when an error occurs; thus you may 
decide how the error should be handled. 
Figure 49 shows the contents of the 
IBM-supplied include file that con- 
tains the information relevant to 
producing your own ONERROR routine. 


Upon entry to ONERROR the parameter 
FERROR contains the number of the error 


(96 34 36 96 3 96 36 3 98 HE 3K 98 HE 3 9 9 3 9K HE 3 3 3 3 3 HE 3 OE 9 3 3 HE 3 3 OE 3 3 OE C3 9 C3 3 3 OE 3 3 OE 3 I OE 3 I IE IE 3 I IE DD HE EE EEE) 
(* RUNTIME ERROR INTERCEPTION ROUTINE 


Ct 222.202... tt... e tt eee eee eet eee ses eee eee ere e Ses es esse sees ee se eee ss ®) 


*%ZINCLUDE ONERROR’ 


*) 
*) 
*) 


(¥number of execution errors *) 


(¥action to be performed *) 
(¥terminate program *) 
(¥print pascal diagnostic .%) 
(¥print user's message *) 
(¥produce a trace back *) 
(*invoke the debugger *) 
(¥decr error counter *) 
C¥RESERVED *) 
C¥RESERVED *) 
CXRESERVED *) 
CXRESERVED *) 
C¥RESERVED *) 
C¥RESERVED *) 
C¥RESERVED *) 
C¥RESERVED *) 
C¥RESERVED *) 
CXRESERVED *) 
CXERROR NUMBER *) 


C¥MODULE NAME WHERE OCCURRED %*) 
CXPROCEDURE WHERE OCCURRED *) 


C¥STATEMENT NO *) 
C¥RETURNED USER'S MESSAGE *) 
CXACTIONS TO BE PERFORMED *) 


that has been encountered. See "Exe- 
cution Time Messages" on page 154 to 
determine the message number corres- 
ponding to a particular error.?} 


FMODNAME, FPROCNAME, and FSTMTNO con- 
tain the name of the module, tha name 
of the routine, and the source state- 
ment number, respectively, of the 
location where the error occurred. 


FACTION is a set variable which deter- 
mines what action is to be taken. Upon 
invocation of ONERROR, FACTION will 
describe the default action that will 
take place after ONERROR returns. You 
should examine this information and 
decide whether you would like to handle 
the error or let the default action 
taka place. 


11° Each error intercepted by the Pascal/VS run time environment consists cf a 
unique 3 digit number. A diagnostic message corresponding to the error 
Will begin with the error number prefixed with the characters AMPX and 
suffixed with the character 'I', 'E' or 'S* (Informational, Error, Severe 


error). 
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You may modify the FACTION parameter as 
you desire. If you set the XUMSG mem- 
ber of FACTION then you must also set 
FRETMSG with the text of the message. 


% INCLUDE ONERROR; 
procedure ONERROR; 
begin 


Figure 50 on page 65 is an example of a 
user interception of execution time 
errors, 


(¥do nothing if fixed, decimal or floating divide by zero 


(¥and diagnose fixed-point overflow 


if FERROR in (19, 21, 25] then 
FACTION := € J] 

else 
if CFERROR = 18) & CFPROCNAME 


begin 
FACTION CXUMSG]; 


in procedure HASHFNC 


"HASHFNC') then 


FRETMSG := *INPUT DATA CONTAINS GARBAGE’; 


end; 
end; 


Figure 50. 


9.5 SYMBOLIC VARIABLE DUMP 


When a program error or checking error 
occurs, a symbolic dump of all vari- 
ables which are local to the routine in 
which the error occurred may be pro- 
duced. This dump will be produced if 
two conditions are met: 


e The source module containing the 
code from which the error occurred 
was compiled with the DEBUG option. 


Example of User Error Handling 


° The Pascal/VS debug library was 
included in the generation of the 
associated load module. 


The variable dump is placed on your 
terminal if you are executing in VM/CMS 
or TSO, or written to DDname SYSPRINT 
otherwise. 
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The Pascal/VS interactive debugger isa 
tool that allows programmers to quickly 
debug Pascal/VS programs without hav- 
ing to write debug statements directly 
into their source code. Basic func- 
tions include tracing program 
execution, viewing the runtime values 
of program variables, breaking at 
intermediate points of execution, and 
displaying statement frequency count- 
ing information. The programmer uses 
Pascal/VS source names to reference 
statements and data. 


Under TSO and CMS, debugger commands 
are read directly from your terminal; 
likewise, the output is written direct-— 
ly to your terminal. If the debugger 
is being run in OS batch, then the 
input is read from DDname SYSIN; the 
output is sent to SYSPRINT. 


In order to use the debugger, you must 
follow these three steps: 


° Compile the module to be debugged 
with the DEBUG option. Modules 
that have been compiled with the 
DEBUG option can be linked with 
modules that have not been compiled 
with the DEBUG option. 


e When link editing your program, 
include the debug library. CIt 
must be located ahead of the run- 
time library in search order).}2 


° When executing the load module, 
specify '"DEBUG’ as a run time 
option.?% This will cause the debug 
environment to become active and 
you will be immediately prompted 
for a debugger command. 


In the debugger environment the user 
may issue debug commands and examine 


10,0 PASCAL/VS INTERACTIVE DEBUGGER 


variables in those modules which were 
compiled with the DEBUG option. 


10,1 QUALIFICATION 


A qualification consists of a module 
name and a routine name. The debugger 
uses the current qualification as the 
default to retrieve information for 
commands. The current qualification 
consists of the name of the routine and 
associated source module which was last 
interrupted when the debugger gained 
control. 


At the start of a debug session, the 
current qualification is the name of 
the module containing the main program, 
and the main program itself. 


10.2 COMMANDS 


This section describes the commands 
that a user may issue with the debug 
facility. Every command may be abbre- 
viated to one letter if desired except 
the QUIT, END and CLEAR commands which 
have no abbreviations. Square brackets 
C'D' and 'J]") are used in the command 
description to indicate optional parts 
of the command. 


Semicolons are used to separate multi- 
ple commands on each line. 


12 Under CMS, the debug library is included if the DEBUG option is specified 


when invoking PASCMOD. 


(see "How to Build a Load Module” on page 12.) 


Under TSO, the debug library is included by specifying the DEBUG keyword 


operand when 


1s Module" on page 18.) 


Options” on page 35. 


invoking the PASCMOD clist. Csee "How to Build a Load 


Run time options must be terminated with a slash ('/'). See "Run Time 
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10.2.1 BREAK Command 


Command Format: 


stmt 
BREAK [£module/] Lroutinel/] [ | 
END 
stmt 
B ECEmodule/] froutinel/) [ | 
END 
B 
Where: 


module is the name of a Pascal/VS$ 
module. 
routine is the name of a procedure 
or function in the module. 
stmt is a number of a statement 
in the designated routine. 
END is a keyword which denotes the 
end of the routine. 


This command causes a breakpoint to be 
set at the indicated statement. The 
program is stopped before the statement 
is executed. 


The module and/or routine may be omit- 
ted in which case the defaults are tak~ 
en from the current qualification. 
stmt is the number of the statement on 
which to stop in the specified routine 
of the specified module. The statement 
numbers” are found on the source 
listing. END specifies that the break- 
point is to occur in the epilogue of 
the routine immediately prior to the 
routine's return. 


A maximum of 32 breakpoints may be set 
at any one time. The following table 
illustrates the meaning of the various 
forms. 


Input Module Procedure 
BS current current 

B/S current main program 
B P/S current 

B M/7S main program 
B M/P/S M P 

Where: 


current ~ means currently qualified 
module or procedure, 


M,P - are the names of a module 
or procedure 
S - is either a statement 


number or END 
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10.2.2 CLEAR Command 


Command Format: 


CLEAR 


Minimum Abbreviation: 


CLEAR 


There are no operands. 


The CLEAR command is used to remove all 
breakpoints. 


10.2.3 CMS Command 


Command Format: 


CMS 
Minimum Abbreviation: 
c 


There are no operands. 


ThisS command activates the CMS subset 
mode. If the program is not being run 
under CMS, the command is ignored. 


10,2.4 DISPLAY Command 


Command Format: 
DISPLAY 


Minimum Abbreviation: 


BD 


The DISPLAY command is used to display 
information about the current debugger 
session at the user's terminal. The 
information displayed is: 


e the current qualification, 

° where the user's program will 
resume execution upon the GO com- 
mand, 

° the current status of Counts, 

° the current status of Tracing. 
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10.2.5 DISPLAY BREAKS Command 


Command Format: 


DISPLAY BREAKS 
Minimum Abbreviation: 
DB 


There are no operands. 


The DISPLAY BREAKS command is used to 
produce a list of all breakpoints which 
are currently set. 
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10.2,6 DISPLAY EQUATES Command 


Command Format: 
DISPLAY EQUATES 


Minimum Abbreviation: 
DE 


There are no operands. 


The DISPLAY EQUATE command is used to 
produce a list of all equate symbols 
and their current definitions. 


10.2.7 END Command 


Command Format: 


END 


Minimum Abbreviation: 


END 


The END command causes the program to 
immediately terminate. This command is 
synonymous with QUIT. 


14 There is one exception: 
string. 


10.2.8 EQUATE Command 


Command Format: 
EQUATE identifier [data] 


Minimum Abbreviation: 
E identifier [data] 


Where: 


jdentifier is a Pascal/VS 
identifier. 

data is a command which the 
identifier is to represent. 


The EQUATE command equates an identifi- 
er name to a data string. When the 
identifier name appears in a command, 
it will be expanded inline prior to 
executing the command. 


As an example, the command 
EQUATE X ,BITI] 


will cause the variable "B[I]" to be 
viewed when "XxX" is entered as a 
command. The commands 


EQUATE Y Rad.FL61].J 
»BLY] 


will cause the variable "B[RQ.F[6].J1" 
to be viewed. 


A semicolon may not terminate the 
EQUATE command; a semicolon will be 
treated as part of the data string. 
For example, the command 


EQUATE Z GO$LISTVARS 


will cause the "GO" and "LISTVARS" com- 
mands to be executed in succession when 
"2" is entered as a command. 


An equate command may be used to rede- 
fine the meaning of a debugger 
command: } 4 


EQUATE GO WALK 


makes the command "GO" function as the 
command "WALK." 


An equate command may be cancelled by 
equating the previously defined iden- 
tifier to an empty data string: 


EQUATE Z 


the name EQUATE may not be equated to a data 
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removes’7 the symbol wa" from the 
debugger's equate table. 


Equates may be equated to strings which 
contain other equates. All substi- 
tution will take place after expansion. 
The commands 


EQUATE A PQ.1 
EQUATE B ,XYZL[A] 


will cause the symbol "BY to be 
expanded to ",XYZ[Pa.1]." 
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10.2.9 GO Command 


Command Format: 


Go 
Minimum Abbreviation: 
G 


There are no operands. 


This command causes the program to 
either start or resume executing. The 
program will continue to execute until 
one of the following events occurs: 


° breakpoint 

° program error 

° normal program exit 

A breakpoint or program error will 


return the user to the Debug environ- 
ment. 


10,2.10 Help Command 


Command Format: 
2 


Minimum Abbreviation: 


? 


There are no oparands. 


The Help command lists all Debug com- 
mands. 


10.2.11 LISTVARS Command 


Command Format: 
LISTVARS 
Minimum Abbreviation: 


L 


There are no oparands. 


This command displays the values of all 
variables which are local to the cur- 
rently active routine. 
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10.2.12 Qualification Command 


Command Format: 
QUAL [module 7/1 [routine] 
Minimum Abbreviation: 


Q (Cmodule 71 [routine] 


Where: 


module i's the name of a Pascal/VS§ 
module. 

routine is the name of a procedure 
or function in the module. 


If the user does not specify a module 
and/or a routine name the defaults are 
taken from the current qualification. 
The defaults are applied as follows: 


° the module name defaults to the 
current qualification. 


° the routine defaults to the main 
program if the associated module is 
a program module, or to the outer- 
most lexical level if the module is 
a segment module. 


The lexical scope rules of Pascal are 
applied when viewing variables. The 
current qualification provides’ the 
basis on which program names-~ are 
resolved. If there is no activation of 
the routine available (no invocations) 
the user may not display local vari- 
ables for that routine. 


Qualification may be changed at any 
time during a Debug session. When a 
breakpoint is encountered, the quali- 
fication is automatically set to the 
module and the routine in which the 
breakpoint was set. 
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10.2.13 QUIT Command 


Command Format: 


QUIT 
Minimum Abbreviation: 
QUIT 


There are no operands. 


This command causes the program to end. 
It is similar to a normal program exit. 
The user is returned to the operating 
system. 


10.2.14 RESET Command 


Command Format: 


stmt 
RESET [[module/] [routinel]/] [ | 
END 


Minimum Abbreviation: 


stmt 
R [{(module/] [routinel/] [ | 
END 


Where: 


module is the name of a Pascal/VS 
module. 

routine is the name of a procedure 
or function in the module. 

stmt is a number of a statement 
in the designated routine. 


The RESET command is used to remove a 
breakpoint. The defaults are the same 
as the BREAK command. 


10.2.15 SET ATTR Command 


Command Format: 


ON 
SET ATTR [ | 
OFF 


Minimum Abbreviation: 


ON 
sa | | 
OFF 


The SET ATTR command is used to set the 
default way in which variables are 
viewed. The ON parameter specifies 
that variable attribute information 
will be displayed by default. The OFF 
parameter specifies that variable 
attribute information will not be dis- 
played by default. The default may be 
overridden on the variable viewing com— 
mand. 
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| 0.2. T COUNT Command 


Command Format: 


al 


SET COUNT [ 
OFF 


Minimum Abbreviation: 


ON 
ac | | 
OFF 


The SET COUNT command i858 used to initi- 
ate and terminata statement counting. 
Statement counting i585 used to produce a 
summary of the number of times every 
statement is executed during program 
execution. The summary 15 produced at 
the end of program execution and is 
written to the standard fila OUTPUT. 
Statement counting may also be initi- 
ated with the runtime COUNT option. 


76 Pascal/V5 Programmer's Guide 


o. SET TRAC omma 


Command Format: 


ON 
SET TRACE OFF | 
TO ddnamne 
inim reviatio 
ON 
S T [ OFF | 
TO ddname 
Where: 


ddname is the name of a DDname 
atta l the trace cutput is to be 
sent. 


The SET TRACE command 15 used to ejthar 
activata or deactivate program 
tracing. Program tracing provides the 
user with a list of every statement 
executed in the the program. This ig 
useful for following tha execution flow 
during axecution. 


The output from the program trace nar- 
mally will go to your terminal, by 
using the TO option you may direct the 
output to a specific file. 


10,2.18 TRACE Command 


Command Format: 


TRACE 
Minimum Abbreviation: 
T 


This command has no operands. 


The TRACE command is used to produce a 
routine trace at the user's terminal. 
The procedures on the current invoca- 
tion chain are listed along with the 
most recently executed statement jin 
each. 


10.2.19 Viewing Variables 


Command Format: 


» Variable CC option £)]] 


Where: 


variable is a Pascal variable. 
See the chapter entitled 
"Variables" in the Pascal/VS 
Reference Manual for the 
syntax of a variable. 

option is either ATTR or NOATTR. 


This command allows the user to obtain 
the contents of a variable during pro- 
gram execution. 


The static scope rules that apply to 
the current qualification are applied 
to the specified variable. If the var- 
iable is found to be a valid reference, 
then its value is displayed. If the 
name cannot be resolved within the cur- 
rent qualification, the user is 
informed that the name is not found. 
If the name resolves to an automatic 
variable for which no activation cur- 
rently exists the user is informed that 
the variable cannot be displayed. 


As can be seen from the following exam- 
ples, array elements, record fields, 
and dynamic variables may all be 
viewed. Variables are formatted 
according to their data type. Entire 
records, arrays and spaces are dis- 
played as a hexadecimal dump. The user 
may view an array slice by specifying 
fewer indices than the declared dimen- 
sion of the array. The missing indices 
must be the rightmost ones. 


The options ATTR or NOATTR can follow a 
left parenthesis. The default is taken 
from the SET ATTR command. The initial 
default is NOATTR. If the user gives 
ATTR aS an option, attributes of the 
variable are displayed along with the 
value of the variable. The attributes 
are the data type, memory class, length 
if relevant, and the routine where the 
variable was declared. 


Note: A subscripting expression may 
only be a variable or constant; that 
is, it may contain no operators. Thus, 
such a reference as 


is valid Cat least syntactically), but 
the reference 


,alit3] 
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is not a valid reference because the 
subscripting expression is not a vari- 
able or constant. 


Examples 


Pa .b 
»>bL1,x].int CATTR 
»palx,y].ba.aLl1] 


If the variable being viewed has not 
been assigned a value then the results 
depend on the varjable's type: 


* If the variable is of a simple type 
Cinteger, char, real, ete.), then 
the word “uninitialized™ will be 
printed. 


. If the variable is of a structured 
type (array, record), then the con- 
tents will be printed in hexadeci- 
mal; each byte of the the variable 
which is uninitialized will have 
the value 'FE’ (hexadecimal). 
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10.2.20 Viewing Memory 


Command Format: 

» hex-string [ = length } 
Where? 

hex-string js a number in 


hexadecimal notation. 
length is an integer. 


This command is used to display the 
contents of a specific memory location. 
Memory beginning at the byte specified 
by the hex string is dumped for the 
number of bytes specified by tha length 
field. If the length is not specified 
memory is dumped for 16 bytes. The 
dump is in both hex and character for- 
mats. 


The hex string must be an hexadecimal 
number surrounded by single quotes and 
followed by an 'x' Ceg. '35D05'X). The 
length is specified in decimal. 


Examples 


»'20000'X 
>'46cfO'X =: 108 


10.2.21 WALK Command 


Command Format: 


WALK 
Minimum Abbreviation: 


u 


There ara no operands. 


This command causes the program to 
either start executing or resume exe- 
cuting. The program execution will 
continue for exactly one statement and 
then the user will be returned to 
Debug. This command is useful for sin- 
gle stepping through a section of code, 
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10.3 DEBUG TERMINAL SESSION 


program Primgen; 


type 
PrimeRange = 1..100; (*Specify limits for the *) 
(*% number of prime numbers *) 
var 
Prime > arrayl PrimeRange ] of Integer; 
(#This array stores the result) 
NotUsed >: PrimeRange; (¥Used test preceeding primes *) 
Savelndex ’ PrimeRange} (¥Used to remember last used ¥*) 
(¥% spot in Prime %) 
TestNumber =|: Integer; (¥Test value for primeness *) 


function IsPrime( Testval =: INTEGER) =: BOOLEAN; 
Var 


Quotient, (¥Testval div prime ¥%) 
Remainder : Integer; (*Test value for primeness *) 
PrimeIndex : PrimeRange; (¥Used test preceeding primes #) 
begin (#IsPrime ¥) 
1 PrimeIndex := Loweast(PrimeRange); (*¥Test each previous prime *) 
repeat C#Starting with the first one *) 
2 | PrimeIndex := Succ €PrimeIndex); (*Get next prime *) 
(xCompute relative primeness of Testval and a Known prime ”) 
3 Quotient += Testval div Prime(PrimelIndex]; 
4 | Remainder ‘= Testval - Quotient * PrimelPrimelIndex] 
5 until (Remainder=0) | (Quotient <= PrimelPrimeIndex]); 
6 if Remainder = 0 then CXIf the number was divided by) 
7 IsPrime := FALSE (¥any known Prime, then this ¥*) 
else C(¥is not prime *) 
8 TsPrime := TRUE; 
end; (*¥IsPrime K) 
begin 
l Primeli] = 2; CxFirst three primes ”) 
2 Prime{2] = 33 (x ditto 4) 
3 Prime([3] = 5; Cx ditto ") 
4 TestNumber = 5; (*Start candidates at 5 4) 
5 Savelndex = 43; (*%Last used prime entry ") 
repeat 
6 TestNumber := TestNumber + 2; (*Test each odd number *) 
(* starting with the first *%) 
7 if IsPrime€TestNumber) then CXIf canidate is a prime *) 
begin CMSave it in the next entry #) 
& Savelndex:= Succ(SaveIndex); (* of the prime table *) 
9 Prime(SavelIndex] :!= TestNumber 
end 
10 until SaveIndex = Highest(PrimeRange); 
C¥Print results at tan to a line #) 
il for PrimeIndex := Lowest(PrimeRange) to Highest(PrimeRanga) do 
begin 
12 Write PrimelPrimeindex]:? ); (*%Print one prime number *) 
13 if (CPrimeIndex mod 10) = 0 then (CX#If ten have been printed *) 
Writeln (*% then skip to next line *) 


end; 


and. (¥Primgen 


Figure 51. session 


Sample program for Debug 


The following series of figures is a commands are highlighted and under 


sample Debug terminal session that dem- lined. The program being executed is 
onstrates breakpoints, viewing vari- shown in Figura 51. 


ables and other DEBUG commands. User 
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2 


Pascalvs primgqen (debug 
INVOKING PASCAL/YYS R2.0 
NO COMPILER DETECTED ERRORS 


Source lines: 62; Total time: 1.20 seconds; Total rate: 3092 LPM 
R; T=1.73/73,05 16:13:54 


pascmod primgen (debug 
Rs T=0.9042.19 16:14:51 


filedef output terminal 
R; T=0,03/0.05 16:14:52 


primgen debuq count / 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 52. Compiling, linking and executing @ program with DEBUG 


* 


Name (abbreviation is in capital letters) 

? This command list 

; Display a variable 

Break Set a breakpoint 

CLEAR Remove all breakpoints 

Cms Enter CMS subset mode 

Display Display currant resume point 

Display Break Display currently set breakpoints 
Display Equate Display currently set equates 

END Halt your program 

Equate Set an identifier to a literal value 
Go Continue executing your program 
Listvars List all variables 

Qual Set default module/routine 

QUIT Halt your program 

Reset Remove a specific breakpoint 

Set Attr Set default viewing information ON/OFF 
Set Count Turn statement counting ON/OFF 

Set Trace Turn tracing ON/OFF/TO fileid 

Trace Display invocation chain of routines 
Walk Execute one statement of current routine 
Debug(PRIMGEN <MAIN-PROGRAM>}: 


Figure 53. The HELP command of DEBUG 
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break 8 
PRIMGEN/<MAIN-PROGRAM>/8 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


go 
Stopped at PRIMGEN/’<MAIN-PROGRAM>/8 
Debug(PRIMGEN <MAIN-PROGRAM> >: 


Walk 
Stopped at PRIMGEN/<MAIN-PROGRAM>/9 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Halk 
Stopped at PRIMGEN/<MAIN-PROGRAM>/1]0 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 54. Setting Breakpoints and Statement Walking 


listvars 

Variables for procedure: <MAIN~PROGRAM> 
PRIME 

C0003CA28) 

000000 c0c00002 00000003 O0000005 FEFEFEFE * 
g00010 FEFEFEFE FEFEFEFE FEFEFEFE FEFEFEFE '! 
€00000020 through 00000)8F is the same as abova) 
NOTUSED = uninitialized 
SAVEINDEX = 3 
TESTNUMBER = 7 

Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 55, The LISTVARS command - List all variables 
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set trace on 
Program trace jis on -- output to '<TERMINAL>?? 
Debug(PRIMGEN <MAIN-PROGRAMD>): 


go 
Resuming PRIMGEN <MAIN-PROGRAM> 
6-7 
PRIMGEN ISPRIME 
1 


2-5 
6 


7 
Returning from ISPRIME 


Resuming PRIMGEN <MAIN-PROGRAM> 
10 
6-7 

Executing PRIMGEN ISPRIME 


Returning from ISPRIME 

Resuming PRIMGEN <MAIN-PROGRAM> 
8-9 

Stopped at PRIMGEN/<MAIN-PROGRAM>/8& 

Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 56. The Trace Mode of DEBUG 
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==m=ms==> 10 

=Zar===> 6-7 

Executing PRIMGEN ISPRIME 
=====2=> 1 

ie 2-5 

maorrr=> 27-5 

mimnrrcrt=> 6 

=Z=xmr=z=> 8 


Returning from ISPRIME 

Resuming PRIMGEN <MAIN-PROGRAM> 
====c=> 8-9 

Stopped at PRIMGEN/<MAIN-PROGRAM>78 
Debug(PRIMGEN <MAIN-PROGRAMD>): 


Walk 
Stopped at PRIMGEN/<MAIN-PROGRAM>7/9 
Debug(PRIMGEN <MAIN~PROGRAM> ): 


=sassc=> 10 
Stopped at PRIMGEN/<MAIN-PROGRAM>/10 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


SSsis===> 6-7 
Stopped at PRIMGEN/<MAIN--PROGRAM>/6 
Debug(PRIMGEN <MAIN-PROGRAM>): 


walk 
Stopped at PRIMGEN/<MAIN--PROGRAM>/7 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


walk 
Executing PRIMGEN ISPRIME 
1 
2-5 
6 


Returning from ISPRIME 
Resuming PRIMGEN <MAIN--PROGRAM> 
10 


Stopped at PRIMGEN/<MAIN-PROGRAM>/10 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


go 
Stopped at PRIMGEN/<MAIN--PROGRAM>/8& 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 57. Walking when the Trace Mode is On 
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display qualification 
Currently qualified to PRIMGEN <MAIN-PROGRAM> 
Will resume at PRIMGEN <MAIN-PROGRAM> 8 
Counts are on 
Trace is on 
Trace output to <TERMINAL> 
Debug(PRIMGEN <MAIN-PROGRAM>): 


display breaks 
Module Routine 
PRIMGEN <MAIN-PROGRAM> 
Debug(PRIMGEN <MAIN~PROGRAM> ): 


equate tn ,testnumber 
Debug(PRIMGEN <MAIN-PROGRAM>): 


tn 
, TESTNUMBER 
TESTNUMBER = 19 
Debug(PRIMGEN <MAIN-PROGRAM>): 


display equate 
==> ,TESTNUMBER 


TN 
Debug(PRIMGEN <MAIN-PROGRAMD> ): 


set trace off 
Program trace is off 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 58. Miscellanaous DEBUG Commands 


» testnumber 
TESTNUMBER = 19 


Debug(PRIMGEN <MAIN-PROGRAM>): 


, testnumber Cattr 
ATA TYPE: INTEGER 
MEMORY CLASS =: LOCAL AUTOMATIC 
DECLARED IN : <MAIN-PROGRAM> 
TESTNUMBER = 19 
Debug(PRIMGEN <MAIN-PROGRAM>): 


»primel1d] 
PRIMEL10] = uninitialized 
Debug(PRIMGEN <MAIN-PROGRAM>): 


,prime(5] 
PRIME[5] = 11 
Debug(PRIMGEN <MAIN-PROGRAMD>): 


Figure 59. Commands to Display a Variable 
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break isprime/end 
PRIMGEN/ISPRIME/END 
Debug(PRIMGEN <MAIN-PROGRAM>): 


go 
Stopped at PRIMGEN/ISPRIME/END 
Debug(PRIMGEN ISPRIME): 


trace 
Trace back of called routines 


Routine stmt at address in module 
ISPRIME 8 020138 PRIMGEN 
<MAIN-PROGRAM> 7 020260 PRIMGEN 


PASCALZVS 02055A 


Debug(PRIMGEN ISPRIME): 


set trace on 
Program trace in on ~~ output to '<TERMINAL>' 
Debug(PRIMGEN ISPRIME): 


equate next go;listvars 
Debug(PRIMGEN ISPRIME): 


next 
GO;LISTVARS 
Resuming PRIMGEN <MAIN-PROGRAM> 


ISPRIME 


Returning from ISPRIME 
Stopped at PRIMGEN/ISPRIME/END 
Variables for procedure: ISPRIME 
PRIMEINDEX = 2 

QUOTIENT = 13 

REMAINDER = 0 

TESTVAL = 39 

Debug(PRIMGEN ISPRIME): 


set trace off 
Program trace 1s off 
Debug(PRIMGEN <MAIN-PROGRAM>) : 


Figure 60. Using Multiple commands on one Line and other commands 
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reset 8 
Breakpoint at PRIMGEN/<MAIN-PROGRAM>/8& has been removed 
Debug(PRIMGEN <MAIN-PROGRAM>): 


b= Le} 
Stopped at PRIMGEN/ISPRIME/END 
Debug(PRIMGEN ISPRIME): 


listvars 
Variables for procedure: ISPRIME 
PRIMEINDEX = 2 
QUOTIENT = 11 
REMAINDER = 0 
TESTVAL = 33 
Debug(PRIMGEN ISPRIME): 


reset end 
Breakpoint at PRIMGEN/ISPRIME/END has been removed 
Debug(PRIMGEN ISPRIME): 


go 
2 3 5 7 ll 13 
31 37 41 43 47 53 
73 79 83 89 97 101 
127 131 137 139 149 151 
179 181 191 193 197 199 
233 239 241 251 257 263 
283 293 307 311 313 317 
353 359 367 373 379 383 
419 421 431 433 439 443 
467 479 487 491 499 503 


Figure 61. The Reset Breakpoint Command 


PASCAL“VS STATEMENT COUNTING SUMMARY 


<MAIN-PROGRAM> IN PRIMGEN CALLED 1 TIME(S) 
FROM-TO:COUNT FROM-TO:COUNT FROM-TO:COUNT FROM-TO: COUNT 
1-5 :1 6-7 :268 8-9 397 
11:1 12-13 :100 14 710. 


ISPRIME IN PRIMGEN CALLED 268 TIME(S) 

FROM-TO:COUNT FROM-TO:COUNT FROM-TO:COUNT FROM-TO:COUNT 
1 +268 2-5 +910 6 +268 7 
8 :97 


Figure 62. Statement Counting Summary 
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c This section describes the rules that 
the Pascal/VS compiler employs in map- 
ping variables to storage locations. 


11.1 AUTOMATIC STORAGE 


Variables declared locally to a routine 
via the var construct are assigned off- 
sets within the routine'’s dynamic stor- 
age area (DSA). There is a DSA 
associated with every invocation of a 
routine plus one for the main program 
itself. The DSA of a routine is allo- 
cated when the routine is called and is 
deallocated when the routine returns. 


11.2 INTERNAL STATIC STORAGE 


For source modules that contain vari-~ 
ables declared STATIC, a single unnamed 
control section (C'private code') is 
associated with the source module in 
the resulting text deck. Each variable 
declared via the STATIC. construct, 
regardless of its scope, is assigned a 
unique offset within this control sec~ 
tion. 


11.3 DEF STORAGE 


Each def variable which is initialized 
by means of the value declaration will 
generate a named control section 
Cesect). Each def variable which is 
not initialized will generate a named 
COMMON section.!5 The name of the sec- 
tion is derived from the first eight 
characters of the variable’s name. 


11.0 STORAGE MAPPING 


11.4 DYNAMIC STORAGE 


Pointer qualified variables are allo- 
cated dynamically from heap storage by 
the procedure ‘NEW’. Such variables 
are always aligned on a edoubleword 
boundary. 


11.5 RECORD FIELDS 


Fields of records are assigned consec- 
utive offsets within the record ina 
sequential manner, padding where nec- 
essary for boundary alignment. Fields 
Within unpacked records are aligned in 
the same way as variables are aligned. 
The fields of a packed record are 
aligned on a byte boundary regardless 
of their declared type. 


11.6 DATA SIZE AND BOUNDARY ALIGNMENT 


A variable defined in a Pascal/VS 
source module is assigned storage and 
aligned according to its declared type. 


11.6.1 The Predefined Types 


The table in Figure 63 displays the 
storage occupancy and boundary align- 
ment of variables declared with a pre- 
defined type. 


STORAGE MAPPING OF DATA 


BOUNDARY ALIGNMENT 


DATA TYPE SIZE in bytes 


ALFA 

ALPHA 
BOOLEAN 
CHAR 
INTEGER 
SHORTREAL 
REAL 
STRINGC len) 
STRINGPTR 


Figure 63. 


Cc . 


nicate with FORTRAN subroutines. 


a 


- 
On ORR RE oO 


3 
+ 
nN 


BYTE 
BYTE 
BYTE 
BYTE 
FULL WORD 
FULL WORD 
DOUBLE WORD 
HALF WORD 
FULL WORD 


Storage mapping for predefined types 


Each def variable becomes a named COMMON block which may be used to commu- 
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11.6.2 Enumerated Scalar 


An enumerated scalar variable with 256 
or fewer possible distinct values will 
occupy one byte and will be aligned on 
a byte boundary. If the scalar defines 
more than 256 values then jit will occu- 
py a half word and will be aligned ona 
half word boundary. 


11.6.3 Subrange Scalar 


A subrange scalar that is not specified 
as packed will be mapped exactly the 
Same way as the scalar type from which 
it is based. 


A packed subrange scalar is mapped as 
indicated in the table of Figure 64. 
Given a type definition T as: 


type 
T = packed i..j; 
and 
const 
I = ORDCi); 
J = ORDC(3); 


SIZE in 
bytes 


ALIGNMENT 


0..255 BYTE 


~128..127 BYTE 

-32768..32767 HALF WORD 
0..65535 HALF WORD 

0..16777215 BYTE 


-8388608. .8388607 BYTE 


FULL WORD 


> WwW WwW DB DY FF F&F 


otherwise 


Figure 64%. Storage mapping of 
subrange scalars 


Each entry in the first column in the 
above table is meant to include all 
possible sub-ranges within the speci- 
fied range. For example, the range 
100..250 would be mapped in the same 
way as the range 0..255. 


11.6.4 RECORDS 


An unpacked record is aligned on a 
boundary in such a way that every field 
of the record is properly aligned on 
its required boundary. That is, 
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records are aligned on the boundary 
required by the field with the largest 
boundary requirement, 


For example, record A below will be 
aligned on a full word because its 
field Al requires a full word 
alignment; record B will be aligned on 
a double word because it has a field of 
type REAL; record C will be aligned on 
a byte. 


record (*full word aligned) 
>: INTEGER; 
: CHAR 


(¥double word aligned) 
Aj 

REAL; 

BOOLEAN 


(Xbyte aligned) 
packed 0..255; 
ALPHA 


Figure 65. Alignment of records 


Packed records are always aligned on a 
byte boundary. 


11.6.5 ARRAYS 


Consider the 
definition: 


following type 


type 
A = array [ s 1] of t 


where type 8 is a simple scalar 
and t is any type. 


A variable declared with this type 
definition would be aligned on the 
boundary required for data type 't'. 
With the exception noted below, the 
amount of storage occupied by this var- 
iable is computed by the following 
expression: 


CORDCHIGHEST( 3s) )-ORDCLOWEST(s))+1) 
* SIZEOF(t) 


The above expression is not necessarily 
applicable if "et represents an 
unpacked record type. In this case, 
padding will be added, if necessary, 
between each element so that each ele- 
ment will be aligned on a_ boundary 
which meets the requirements of the 
record type. 


Packed arrays are mapped exactly as 
unpacked arrays, except padding is nev- 
er inserted between elements. 


J 


J 


A multi~dimensional array iS mapped as 
an array of array(s). For example the 
following two array definitions would 
be mapped identically in storage. 


array [ i..35, njloft 
array [ i..3 J] of 
array [ m..n 1] of t 


11.6.6 FILES 


File variables occupy 64 bytes and are 
aligned on a full word boundary. 


11.6.7 SETS 


SETs are represented internally as a 
string of bits: one bit position for 
each value that can be contained within 
the set. 


explain how sets are 
terms will need to be 
defined: The base type is the type to 
which all members of the set must 
belong. The fundamental base type 
represents the non-sSubrange' scalar 
type which is compatible with all valid 
members of the set. For example, a set 
which is declared as 


set of '0'..'9! 


has the base type defined by '0'..'9'; 
and a fundamental base type of CHAR. 


To adequately 
mapped, two 


Any two unpacked sets which have the 
same fundamental base type will be 
mapped identically (that is, occupy the 
same amount of storage and be aligned 
on the same boundary). In other words, 
given a set definition: 


type 
S 
T 


set of s; 
set of t; 


where s i8 a non-SUbrange scalar type 
and t is a subrange of s: both S$ and T 
will have the same length and will be 
aligned in the same manner. 


Sets always have zero origin; that is, 
the first bit of any set corresponds to 
a member with an ordinal value of zero 
Ceven though this value may not be a 
valid set member). 


Unpacked sets will contain the minimum 
number of bytes necessary to contain 


the largest value of the fundamental 
base type. Packed sets occupy the min- 
imum number of bytes to contain the 
largest valid value of the base type 
Thus, variables A and B below will both 
occupy 256 bits. 


var 
A : set of CHAR; 
B : set of '0'..'9!'; 


Variables C and D will both occupy 16 
bits; variable E will occupy 8 bits. 


var 
Cc : set of (C1,C2,C3,C4,C5,C6, 
C7,€C8,C9,€10,C11,C12 
€12,€13,C14,€15,C16); 
D: set of C1..C8&; 
E >: packed set of C1..C8&; 


A set type with a fundamental base type 
of INTEGER is restricted so that the 
largest member to be contained in the 
set may not exceed the value 255; 
therefore, such a set will occupy 256 
bits. 


Thus, variables U and V below will both 
occupy 256 bits; variable W will occupy 
21 bits; variable X will occupy 32 
bits. 

var 

U: set of 0..255; 

V: set of 10..20; 
W : packed set of 10..20; 
X : packed set of 0..31; 


Given that M is the number of bits 
required for a particular set, the 
table in Figure 66 indicates how the 
set will be mapped in storage. 


ALIGNMENT 


M BYTE 
9 <= M <= 16 2 HALF WORD 
17 <= M <= 24 3 BYTE 
25 <= M <= 32 4 FULL WORD 
M BYTE 


mapping of 


Figure 66. 


Storage 
SETS 
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11.6.8 SPACES 


A variable declared as a space is 
aligned on a byte boundary and occupies 
the number of bytes indicated in the 
length specifier of the type 
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definition. For example, the variable 
§ declared below occupies 1000 bytes of 
storage. 


var S: space [1000] of INTEGER; 


J 


12.1 LINKAGE CONVENTIONS 


Pascal/VS uses standard 0S linkage con- 
ventions with several additional 
restrictions. The result is that Pas- 
cal/VS may call any program that 
requires standard conventions and may 
be called by any program that adheres 
to the additional Pascal/VS restric-— 
ions. 


On entry to a Pascal/VS routine the 
contents of relevant registers are as 
follows: 


° Register 1 - points to the parame- 
ter list 

° Register 12 =- points to the 
Pascal/VS Communication Work Area 
CPCWA) 

° Register 13 - points to the save 


area provided by the caller 
° Register 14 - return address 


e Register 15 - entry point of called 
routine 


Pascal/VS requires that the parameter 
register (R11) be pointing into the 
Dynamic Storage Area (DSA) stack in 
such a way that 144 bytes prior to the 
Ril address is an available save area. 


12.0 CODE GENERATION FOR THE I8BM/370 


12. REGISTER USAGE 


The table in Figure 67 describes how 
each general register is used within a 
Pascal/VS program. The floating poirt 
registers are used for computation on 
data of type REAL. 


register(s) 


0,1 


purpose(s) 


- temporary work registers 
for the compiler 

- standard linkage usage 
on calls 


3,4,5,6,7,8,9 
- registers assigned by the 
compiler for computation 
and for data base 
registers 


2,10 
- code base registers 
of the currently 
executing routine 
11 


- address of the DSA of the 
main program 


always points to Pascal/VS 
Communication Work Area 


always points to the local 
DSA 


14,15 
- temporary work registers 
for the compiler 
~ standard linkage usage 
on calls 


Figure 67. Register usage 
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12.3 DYNAMIC STORAGE AREA 


On entry to a procedure or function, an 
area of memory called a Dynamic Storage 
Area (DSA) is allocated. This area is 
used to contain save areas, local vari- 
ables and compiler generated tempo- 
raries. <A Pascal/VS routine requires a 
DSA of at least 144 bytes; if the rou- 
tine has parameters or local variables, 
more space 15 needed. 


| register 13—-> 


Q: Register 
Save area 
Fe: CSSA PSAAAEAA AAA AA GA 
81:—|-—— 
[ pasate es 
—84:— | ——————— 
92: 
96: | | SAAS S SSS 
100: reserved for 
error handling 
112: floating point 
registers 
FQ - Fé 
144: parameter 


list 


local variables 
and compiler 
temporarijies 


translator 
temporaries 


144 byte save area 


Parameter list 
to be built here 


144 byte save area 


16 byte rte parms 


> 


Saf foe 


DSA format 


Figure 68. 


16 Under MY¥S, the name of this library 


it is PASCALVS MACLIB. 
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reserved for future use 

pointer to translator temporaries 
pointer to parameter list build area 
pointer to the end of the DSA 
pointer to the frequency count table 


execution flags, 


if the routine has no parameters then 


if the routine has no local variables 
and requires no compiler temporaries, 
then this space is not present 

if the routine requires no translator 


The following areas only in last DSA 
for the next routine to be called 


for runtime environment 


room for parameters 


indicates that the field is not presently used. 


is s¥v51.PASCALVS.MACLIE. 


The first 72 bytes are generally used 
according to standard OS linkage con- 
ventions. The first word is used to 
copy the previous data base register at 
the current procedure nesting level. 


Figure 68 illustrates the structure of 
the DSA. Figure 69 on page 95 shows 
the DSECT expansion of the DSA. CA 


copy of this DSECT may be found in mem- 
ber DSA of the 
library?®.) 


standard include 


check function flag 


this space is not present 


temporaries, then this space is not 


present 


in case of 
error 

if required by 
error recovery 


Under CMS, 


DSA 
DSASDIS 
DSALSVA 


Save space for display level 

Pointer to last save area 

Creserved for future use) 

Return address 

Entry point address 

Save area for register 0 

Save area for parameter list pointer (reg 1) 
Save area for base register for code (reg 2) 
Save area for register 3 

Save area for register 

Save area for register 

Save area for register 

Save area for register 

Save area for register 

Save area for register 

Save area for 2nd base register for code (reg 10) 
Save area for register 11 (main DSA address) 
Save area for register 12 (PCWA pointer) 
Used by attention processor 

Reserved 

Address of temporary section of DSA 

Address of parameter list build area 
Address of runtime parameter list build area 
Address of count table 

Interactive debugger flags 

Function assignment check flag 

Reserved 

Save area utilized by error recovery 

Save area utilized by error recovery 

Save area utilized by error recovery 

Save area for floating point register 

Save area for floating point register 

Save area for floating point register 

Save area for floating point register 

Length of DSA header 


DSARETA 
DSAEPAD 
DSARGO 
DSAPREG 
DSACODE 
DSARG3S 
DSARGS 
DSARGS 
DSARG6 
DSARG? 
DSARGS& 
DSARGI 
DSACOD2 
DSAL18 
DSAPCWA 
DSAAKEY 
DSARES4 
DSATPTR 
DSAPPTR 
DSARPTR 
DSACNTS 
DSARATD 
DSAFUNX 
DSARES1 
DSACKSA1 
DSACKSA2 
DSACKSAS 
DSAFLO DS 
DSAFL2 DS 
DSAFL4 DS 
DSAFL6 DS 
DSALEN 


DSAPRM1 ODS 
DSAPRM2 DS 
DSAPRM3S DS 
DSAPRM4 DS 
DSAPRM5 DS 
DSADATA ODS 


Start of parameters and/or local variables 


TODAY KOOVOTNAMNNX KTM AADTTAAAATTA AT aT aA 


Figure 69, DSA DSECT: anchored off of register 13. 
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12.4 ROUTINE INVOCATION In general, the DSA of a routine con- 
sists of five sections: 

Each invocation of a Pascal/V¥5 routine 1. The lecal save area (144 bytes). 

must acquire a dynamic storage area 

(DSA) Csea “Dynamic Storage Area” on 2. Parameters passed in by the caller. 

page 94). This storage is allocated 

and deallocated in a LIFG (last 3. Local variables required by the 

inffirst out) stack. If the steck routine. 

should become filled to its capacity, a 

storage overflow routine will attempt 4. A save area required by any routina 

to obtain another stack from which sto- that will ba called. 


rage i5 to be allocated. 
5. Storaga for the largest parameter 


Every DSA must be at least 144 bytes list to be built for a call. 

long; this is the storage required by 

Pascal/V¥VS for a save area. Tha rou- Sections 1 and 2 are allocated by the 
tine's local variables and parameters calling routine; sections 3, 4, and 5 
are mapped Within the DSA starting at ara allocated by the prologue of the 
offset 144. routine to which the DSA belongs. 

Upon entering a routine, register 1 Upon invocation, register 13 points to 
points 144 bytes into the routine's the base of the DSA cf the caller, 
DSA, which is where the parameters which is where the caller's save area 
passed in by the caller raside. This 15 located. The new value of register 
implies that the calling routine is 13 mey be computad by subtracting 144 
responsible for allocating a portion of from the valua in register Ls 
the DSA required by the routine being Figure 70 illustrates the condition of 
called, namely 144 bytes plus enough the stack and relevant registers imme- 
storage for the parameter list. This diately at the start of a routine. 


portion of storage jis actually an 
extension of the caller's DSA. 


start of DSA of caller 


caller's save area 


to replace —_———_—_—— ea—r]} start of DSA of called routine 
REG 13 
{SSS SS S555 local save area 
C144 bytes? 


144 bytes into DSA 


Parametars 


top of stack 


vececcscscnscrses rors storage yet to be allocated 


Sey Sa SSS SoS a start of DSA of routine yet 
Save area to be called 
of any routines 
Cahn at wrth ala yet to be invoked 


reg 1 Senge [SrSsne to cSes see soos 144 bytes into this DSA 
set here parameter list to 
for calls be built for calls 


28 ee to other routines 


Figure 70. Snapshot of stack and relevant ragisters at start of routine 
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12.5 PARAMETER PASSING 


Pascal/VS passes parameters in several 
different ways depending on how the 
parameter was declared. In every case, 
register 1 contains the address of the 
parameter list. 


The parameter list is aligned on a dou- 
bleword boundary and each parameter is 
aligned on its proper boundary. 
Addresses are aligned on word bounda- 
ries. 


This mechanism is indicated by use of 
the reserved word var in the routine 
heading. Actual parameters passed in 
this way may be modified by the invoked 
routine. 


The parameter list contains the address 
of the actual parameter. 


Routine Heading: 


procedure PROC(var I: INTEGER); 


Routine Invocation: 


PROC(J); 


Parameter list: 


address of J 


Passing by Read/Write 


reference 


Figure 71. 


12.5.2 Passing by Read-Only Reference 


This mechanism is indicated by use of 
the reserved word const in the routine 
heading. Actual parameters passed in 
this way may not be modified by the 
invoked routine. 


The parameter list contains the address 
of the actual parameter. 


Routine Heading: 
procedure PROC (const I: INTEGER); 


Routine Invocation: 


PROC(CJ+5); 


Parameter list: 


address of a memory location 
which contains the value of 
J+5. 


Passing by Read-only 


reference 


Figure 72. 


12.5.3 Passing by Value 


This mechanism is the default way in 
which parameters are passed. Parame- 
ters passed in this way are treated as 
if they are pre-initialized local vari- 
ables in the invoked routine. Any mod- 
ification to these parameters by the 
invoked routine will not be reflected 
back to the caller. If the actual 
parameter js a scalar, pointer, or set, 
then the parameter list will contain 
the value of the actual parameter. If 
the actual parameter iS an array, 
record, space, or string, then the 
parameter list will contain the address 
of the actual parameter, In the latter 
case, the called procedure will copy 
the parameter into its local storage. 


Routine Heading: 
procedure PROC( 


I: INTEGER; 
A + ALPHA); 


Routine Invocation: 


PROC(J, 'alpha'); 


Parameter list: 


value of J 
address of ‘alpha 


Figure 73. Passing by value 
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12.5,4 Passin recedure or Functi 


Parameters 


For procedures or functions which are 
being passed as parameters, the address 
of the routine is placed in the parame- 
ter list. 


Routine Heading: 
procedure PROC( 
function X(C¥: REAL): REAL 3}; 


Routine Invocation: 
PROCCCOS); 


Parameter list: 


address of COS routine 


Passing routine param- 
eters 


Figure 74. 
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12.5. Funct] Results 


Pascal/V¥S functions have an implicit 
Parameter which precedes all specified 
parameters. This parameter contains 
the address of the memory location 
Where the function result is to ba 
placed. 


Routine Heading: 
function FUNC(C: CHAR): INTEGER; 


Routine Invocation: 


FUNCCTL*); 


Parameter list: 


- address of returned jnteger 
result 
~ Value of character ‘Lt 


Figure 75. Function results 


12.6 PROCEDURE/FUNCTION FORMAT 


Every Pascal/VS procedure or function 
is arranged in the order shown below. 
Register 2 is the code base register 
for the first 4K bytes of the routine 
body. If the routine occupies more 
than 4K bytes, register 10 is used as 
the code base register for the second 
4K bytes. If a routine exceeds 8K 
bytes of storage, the compiler will 
diagnose it as a terminal error. 


DEBUG control 
block 


entry prologue 


body 
of 
routine 


This must be 
<= 8192 
exit epilogue 


literals: 

ACONS, VCONS, 

and small literals 
1 to 16 bytes long 


STRING and SET 
literals longer 
than 16 bytes 


statement table 
Cif present) 


Figure 76. Routine format 
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12.7 PCWA 


PCWA = 
record . 
PCWAENDS : INTEGER; C¥Ptr to end of current stack *) 
PCWACURS > INTEGER; C(¥Ptr to start of current stack *) 
PCWASELF > INTEGER; (XSelf jdentifying flag 'PCWA' x) 
PCWAFL2 > PCWA_FLG_SET; (Xcompiler runtime flags *) 
PCWARC( 16) > INTEGER; (XReturn code *) 
PCWAFILE > PCBP; (¥pointer to open files *) 
PCWAPARM > SYSPARMP; (¥parms string *) 
PCWAMODS : DBCBP; (¥module header chain (debugger)*) 
PCWAESAP > INTEGER; (¥ptr to external save area *) 
PCWADISP > arraylO..7] of DSAP;(*DISPLAY *) 
PCWADTMP > INTEGER; (XDebugger temporary *) 
PCWARTMP > REAL; (¥floating point temporary *) 
PCWARO > REALS; “CX'4E00000000000000'X *) 
PCWA2231 > REAL; (X'4E00000010000000'X *) 
PCWAMASK > ALFA; (®%'8040201008040201'X x) 
PCWAMFIX > ALFA; (¥temp for first 8 bytes of DSA X) 
PCWASAVE > arrayli..36] of INTEGER; (Extra save area *) 
PCWAPLST > arrayll..16] of INTEGER; (parm list build *) 
PCWAFIN : INTEGER; (¥Pointer to the HALT address *) 
PCWAALLC : INTEGER; (¥Xaddress of memory allocator *) 
PCWADLLC : INTEGER; (Xaddress of memory deallocator x) 
PCWASDFT > INTEGER; (Xdefault stack size *) 
PCWACHKR > INTEGER; (¥address of checker routine *) 
PCWADSAS > INTEGER; (¥size of DSA in bytes (144) *) 
PCWAMEMF > INTEGER; (¥addr of memory fixup routine *) 
PCWAFLAG : INTEGER; (¥Inter-language communication *) 
PCWAPICA > ALFA; (¥PICA save area *) 
PCWASEED > INTEGER; (Xseed of 'RANDOM' function *) 
PCWAXEND : INTEGER; (¥end of stack for SETMEM *) 
PCWAECNT > INTEGER; (¥error count until abend *) 
PCWACHK > INTEGER; (¥address of check routine *) 
PCWACMEM > INTEGER; (Xcurrent memory in use *) 
PCWASTAX > spacel[20] of CHAR; (*STAX list form *) 
PCWAEOPN > BOOLEAN; CXTRUE if PCWAEOUT is open *) 
PCWADINT : BOOLEAN; C¥TRUE if debugger initialized »*) 
PCWATSO > BOOLEAN; CXTRUE if TSO environment *) 
> BOOLEAN; (*¥reserved *) 
PCWAATTN > INTEGER; (Xaddress of attn handling *) 
PCWAFCNT > INTEGER; (¥cent of files without DDnames~ *) 
PCWASIZE > INTEGER; (Xsize of initial alloc for pcwaX*) 
PCWADINA > INTEGER; (XAddress of AMPDINIT or nil *) 
PCWABOPA : INTEGER; (*Address of AMPDIBOP or nil *) 
PCWABBA > INTEGER; (*Address of AMPDIBB or nil *) 
PCWAERAD + INTEGER; (*%Error address - CHKR or DIAG xX) 
PCWAFSTK : INTEGER; (¥Chain of free dsa stack elems X) 
PCWAENDA > INTEGER; (XAddress of AMPDEPIL or nil *) 
PCWAHDFT > INTEGER; (¥default heap size *) 
PCWAPROC(1200) : Space[64] Of CHAR;(*Work area for PROCESS *) 
PCWAUSER( 1264) : Spacel64] Of CHAR;(*Area reserved for user *) 
PCWAEQUT(C13528) + TEXT; CXERROR OUTPUT PCB *) 
PCWAOUT( 1392) PCB; CXOUTPUT PCB *) 
PCWAIN(C 1456) > PCB; CXINPUT PCB *) 
PCWAPDATC1520) = STRINGC254); (Xactual parm list after format *) 
PCWAERSAC1776) : SPIEDSA; (Xsavearea for error routines *) 
PCWAPIE > PSW; CXPSW from PIE *) 
PCWASPIE > INTEGER; 
PCWAMEMA (1984) 
array(MEM_LEVELS] of SPACE_DESC; 
(¥space for memory allocator *) 
end; 
Figure 77. Pascal Communications Work Area 


The Pascal Communications Work Area is global information about the execution 
always addressable from register 12. of the program. 
This area of memory is used to contain 
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J 


The area is divided into two parts, 
each 2048 bytes in length. The first 
part contains data that needs to be 
addressable; the second is composed of 
the small routines used to augment the 
generated code (such as string concat~ 
enation). Figure 77 on page 100 shows 
the structure of the first half of the 
PCWA. Each field is described below: 


PCHAENDS 
a pointer to the end of the current 
DSA stack. 


PCHACURS 
a pointer to the top of the current 
DSA stack, 


PCHASELF 
a self defining field that is set 
to '"PCWA'. 


PCHAFL2 
flags used to enable runtime fea- 
tures. 


PCHARC 
the value assigned by the last exe- 
cution of RETCODE or zero if RET- 
CODE has not been called. 


PCHAFILE 
a Pointer to the first file (PCB) 
that has been opened but not 
clesed. 


PCHAPARM 
4&4 pointer to the parameter string 
passed to the program. 


PCHAMODS 
a pointer to the head of a chain 


that links modules together as 
required by the jnteractive debug- 
ger. 

PCHAESAP 


contains the pointer to the save 
area for the caller of the Pascal 
program. 


PCHADISP 
the runtime display - a stack of 8 
base registers that contains the 
address of the DSAs that are avail- 
able to the executing routine. 


PCHADTHMP 
a temporary used by the interactive 
debugger. 


PCNARTMP 
a temporary used in conversion 
between floating point numbers and 
integers, 


PCHARG 
a constant that contains the float~ 
ing point value zero. 


PCHA2Z231 
a constant that contains the float- 
ing point value of 2 raised to the 


31 power minus 1 in an unnormali zed 


form. 
PCWAMASK 
eight bytes that contain masks 
which are used in set operations. 
PCHAMFIX 


a temporary used during runtime 
error recovery. 


PCHASAVE 
used as a register save area when a 
program error or checking error 
occurs. 


PCHAPLST 
used when a program error or check~ 
ing error occurs to build a parame- 
ter list in order to invoke a 
recovery procedure, 


PCHAFIN 
address of a procedure which termi- 
nates the program no matter what 
state it is in. This procedure is 
normally HALT. 


PCHAALLC 
address of a system dependent rou- 
tine which is responsible for allo- 
cating blocks of storage. 


PCWADLLC 
address of a system dependent rou- 
tine which releases blocks of stor- 
age, 


PCWASDET 
the number of bytes that the stack 
will be extended if an overflow 
should occur. (Set by the STACK 
run time option. ) 


PCHACHKR 
the address of the routine which is 
invoked to diagnose a checking 
error. 

PCWADSAS 


the size of the smallest DSA. Its 
value is 144. 


PCHAMEMF 
contains the address of the memory 
fixup routine, which is called when 
the DSA stack overflows. 


PCHAFLAG 
a flag used when communicating 
between different languages. 


PCWAPICA 
is used for a save area for the 
PICA. 


PCHASEED 
contains the current seed for the 
RANDOM function. 


PCHAXEND 
contains the true end of the cur- 
rent stack. PCWAENDS may not be 
correct, PCWAENDS is made incor- 
rect in order to force a call to 
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AMPXMEMF so that a DSA may be ini- 
tialized Cif SETMEM option is 
enabled). 


PCHNAECNT 
contains the number of non-fatal 
errors which will be tolerated 
before the program will be abended. 


PCWACHK 
contains the address of the routine 
which gains control when a checking 
error occurs. This routine is nor- 
mally AMPXCHKR. 


PCWACMEM 
defines which heap is in use, nor- 
mally the value is one, which indi- 


cates that the users heap is 
available. 

PCWASTAX 
contains the list form of the STAX 
macro. 

PCWAEOPN 


a flag that indicates whether the 
error file, PCWAEOUT has’ been 
opened. 


PCWADINT 
is a flag indicating whether AMPD- 
COM (debugger common area) has been 
initialized yet. 


PCWATSO 
is a flag indicating whether we are 
executing in a TSO environment. 


PCWAATTN 
contains the address of the termi- 
nal attention routine. 


PCWAFCNT 
contains the number of the next 
generated DDname. 


PCWASIZE 
contains the size of the initial 
allocation of the PCWA. 


PCWADINA 
contains the address of the AMPDI- 
NIT routine, which initializes the 
interactive debugger. 


PCWABOPA 
contains the address of the AMPDI- 
BOP routine, which is invoked at 
each procedure entry when the 
debugger is active. 


PCWABBA 


contains the address of the AMPDIBB 
routine, which is invoked at each 
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basic block of code when the debug- 
ger is active. 


PCWAERAD 
contains the offending address 
when a checking error or a program 
error occurs. 


PCWAFSTK 
points to the beginning of a chain 
of all free blocks of storage. 


PCWAENDA 
address of the AMPDEPIL routine, 
which is invoked from the epilogue 
of each routine when the debugger 
is active. 


PCWAHDFT 
the number of bytes that the heap 
will be extended each time it over- 
flows. (Set by the HEAP run time 
option.) 


PCWAPROC 
reserved for future use. 


PCWAUSER 
reserved for Pascal/VS users. 


PCWAEOUT 
the file (CPCB) to where execute 
time error diagnostics is sent. 


PCWAOUT 
the PCB for the standard file OUT- 
PUT. 


PCWAIN 
the PCB for the 
INPUT. 


standard file 


PCWAPDAT 
a string that contains the passed 
in symbolic parameter list after it 
it has been formatted. 


PCWAERSA 
a small save area used when a SPIE 
exit is invoked. 


PCWAPIE 
a place to save certain information 
from the SPIE. 


PCWASPIE 
spie work area 


PCWAMEMA 
descriptors used to control the 
allocation and deallocation poli- 
cies of dynamic storage and I/0 
buffers. 


12.8 PCB - PASCAL FILE CONTROL BLOCK 


PCB = 
record 

PCBFILEP 
PCBFLAGS 
PCBELEM 
PCBNAME 
PCBCODE 
PCBBUFIDX: 
PCBBUFLEN: 
PCBBUFP 
PCBOPTP 
PCBLAST 
PCBNEXT 
PCBICBP 
PCBSTART 
PCBSTAT 


BUFFERP; 
FILEFLAGS; 
HALFWORD; 
ALFA; 
MagicNumber; 
HALFWORD; 
HALFWORD; 
BUFFERP; 
OPTP; 
PCBP; 
PCBP; 
ICBP; 
HALFWORD; 
IOSTATUS; 
CHAR; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 
end; 


Figure 78. 


Every Pascal/VS file is represented by 
a Pascal control block (PCB) An PCB is 
composed of 64 bytes of space. 


The fields are defined as: 


PCBFILEP 
points to 
the file. 


PCBFLAGS 
set of file flags (16 bits). The 
flags are: 


the current element of 


FINPUT indicates that file is 
open for input. 
FOUTPUT indicates that file is 


open for output. 


FTEXT the file is of type TEXT. 

FEOLN end-of-line condition is 
true. 

FEOF end-of-file condition is 
true. 

FFIXED file has fixed length 
records. 

FINTER the file was opened as an 
interactive file. 

FSTATUS the user will check 
PCBSTAT and report the 


errors. 
FFEOL end-of-line condition is 
true, but not as a result 
of READLN. 


(*Pascal Control Block 


(*file pointer 

(¥file flags 

(¥length of file component 
(*file-variable name 
CXinitialization test 
(*buffer index 

(Xbuffer length 

(Xpointer to start of buffer 
(¥ptr to OPTIONS descriptor 
C¥link to last PCB of chain 
(¥link to next PCB of chain 
(¥ptr to Implem. Ctrl Block 
(Xinitial value of PCBBUFIDX 
(¥status of last open 
(¥<not-used> 

(¥<not-used> 

(¥<not-used> 

(*<not-used> 

(*<not-used> 


Pascal file Control Block (PCB) format 


FOPTS an options string was spe- 
cified in the last open. 
FWRAP indicates that one or more 
lines of the text file 
Copened for output) has 
exceeded the logical 
record length of the file. 
FERR indicates that a read was 
attempted after the 
end-of-file condition 
became true. This flag is 
used to suppress multiple 
error diagnostics from a 
single READ statement. 
PCBELEM 
the length of one component of the 
file. 
PCBNAME 
the DDNAME of the file. 
PCBCODE 


an encoded value that is used to 
test whether the PCB has been ini- 
tialized; this is not required for 
files which are local variables but 
is needed for files that are allo- 
cated dynamically (NEW). 


PCBBUFIDX 
byte index 
CPCBBUFP). 


PCBBUFLEN 
total length of buffer in bytes. 


PCBBUFP 
address 
buffer. 


into the I/0 buffer 


of the beginning of the 
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PCBOPTP 

address of the control block that 
describes the information passed 
through the options string as the 
file is being opened. The proce- 
dures which open a file and pass an 
options string are: RESET, 
REWRITE, UPDATE, TERMIN, TERMOUT, 
PDSIN or PDSOUT. 


PCBLAST 
back chain of currently open PCBs. 


PCBNEXT 


forward chain of currently open 
CBs. 
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PCBICBP 
points to a system dependent con- 
trol block to be used by the lowest 
level of interface to the 1/0 
access methods. 


PCBSTART 
contains the initial value of 
PCBBUFIDX, which is used to deter- 
mine if the current buffer contains 
any data that needs processing pri- 
or to closing the file. 


PCBSTAT 
status of the file. 


c 


It is sometimes desirable to invoke 
subprograms (procedures) written in 
other programming languages: this is 
useful to obtain services not available 
directly in Pascal/VS. It is also 
desirable to have a Pascal/VS procedure 
called from a non-Pascal program: this 
would allow you to take advantage of 
Pascal in an existing application with- 
out rewriting the entire application. 
This chapter will discuss the options 
available to you and what you must do 


13.0 INTER LANGUAGE COMMUNICATION 


We can divide inter-language communi- 
cation into two classes: 


° The Pascal procedure is the calling 
procedure and the non-Pascal pro- 
cedure is being called. 


° The Pascal procedure is called from 
a non-Pascal calling procedure. 


Your options are summarized in 
Figure 79. 


in order to have this flexibility. 
Pascal as the calling language Pascal as the called language 


Define procedures and functions Use a call statement in FORTRAN 
in Pascal using the FORTRAN to call the Pascal procedure. 
directive. This enables you to The Pascal procedure must be 
call a subprogram written in defined with the MAIN directive. 
FORTRAN. After the last call to a Pascal 
procedure you must call PSCLHX 
(Pascal halt execution). 


FORTRAN 


Assembler 


Use a V-type constant in the 
Assembler routine to define the 
Pascal entry point. You must 

define the Pascal procedure as 
EXTERNAL, MAIN, or REENTRANT. 

After the last call to a Pascal 
procedure you must call PSCLHX. 


Define procedures and functions 
in Pascal using the FORTRAN or 
the EXTERNAL directive. If you 
use EXTERNAL you will be able to 
specify an arbitrary Pascal 
parameter list. 


COBOL 


Define procedures and functions Use a call statement in COBOL 
in Pascal using the FORTRAN to call the Pascal procedure. 
directive. This enables you COBOL should be compiled with 
to call a subprogram written in the "NODYNAM'® option and the 
COBOL. You may desire to call call must be a call of a 
ILBOSTPO prior to calling a literal. The Pascal procedure 
COBOL program. Consult the must be defined with the MAIN 
COBOL Programmer's guide for directive. After the last call 
details. to a Pascal procedure you must 
call PSCLHX. 


Define procedures and functions Use a call statement in PL/I to 
in Pascal using the FORTRAN call a Pascal procedure. The 
directive. This enables you PL/I procedure should specify the 
to call a subprogram written in Pascal as an EXTERNAL. After the 


PL“I. You should define the PL/I /|last call to a Pascal procedure 


procedure with the FORTRAN 
option. Consult the PL/I OS 
Programmer's guide for further 
details. 


you must call PSCLHX. 


Figure 79. Inter Language Communication 


The details of Pascal/VS linkage con- "Code Generation for the IBM/370" on 
ventions are discussed in the chapter page 93. You should familiarize your- 
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self with this section - especially if 
you plan to use Assembler language. 


13.1 LINKING TO ASSEMBLER ROUTINES 


Writing an Assembler language routine 
for Pascal/VS is a simple operation 
provided that a set of conventions are 
carefully followed. There are two rea- 
sons for the need for these 
conventions: 


1. Pascal/VS parameter passing con- 
ventions: As described in *Parame- 
ter Passing” on page 97, Pascal/VS 
parameters are passed ina variety 
of ways, depending on their attri- 
butes. 


2. The Pascal/VS environment: This is 
an arrangement of registers and 
control blocks used by Pascal/VS to 
handle storage management and run- 
time error recovery. (see "Regis-~- 
ter Usage" on page 93.) 


13.1.1 Writing Assembler Routine wit 
Minimum Interface 


Writing an Assembler routine with the 
minimum interface requires the least 
knowledge of the runtime environment. 
However, such a routine has the follow- 
ing deficiencies: 

e It may not call a Pascal/VS 
routine; 


CSECT 

ENTRY procname 
procname DS 0H 

STM 14,12,12(€13) 
BALR basereg,0 
USING *,basereg 

ST 13,SAVEAREAt4 
LA 13,SAVEAREA 


anyname 


e It must be non-recursive; 


e If a program error should occur 
(such as divide by zero), the Pas- 
cal/VS runtime environment will 
not recover properly and the 
results will be unpredictable. 


When a Pascal/VS program invokes an 
Assembler language routine, register 
14 contains the return address and reg- 
ister 15 contains the starting address 
of the routine. The routine must fol- 
low the System/370 linkage conventions 
and save the registers that will be 
modified in the routine. It must also 
save any floating point register that 
is altered in the routine. 


Upon entry to the routine, register 13 
will contain the address of the regis- 
ter save area provided by the caller, 
and register 1 will point to the first 
of a list of parameters being passed 
Cif such a list exists). Once the reg- 
ister values are stored in the caller's 
save area, the save area address (reg- 
ister 13) must be stored in the 
backchain word in a save area defined 
by the Assembler routine itself. 
Before returning to the Pascal/VS rou- 
tine, the registers must be restored to 
the values that they contained when the 
Assembler routine was invoked. 


If you insert your Assembler 
instructions at the point indicated in 
the skeletal code shown in Figure 80, 
your Assembler routine can be called 
from a Pascal/VS routine and you need 
have no knowledge of the Pascal/VS 
environment. 


declare routine name as an entry point 
entry point to routine 
save Pascal/VS registers in Pascal/VS save area 
establish base register 


store Pascal/VS save area address 
load address of local save area 


body of Assembler routine 


restore the floating point registers if 
they were saved 


L 13,4(13) 
LM 14,12,12(€13) 
BR 14 
SAVEAREA DC 20F‘'O' 
END 


Figure 80. 
invoked from Pascal/VS 
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Minimum interface to an Assembler 


restore Pascal/VS registers 


return to Pascal/V$S 
local Save area 


routine: skeletal code to be 


c 


13.1.2 Writing Assembler Routine with General Interface 


procname PROLOG LASTREG=r,VARS=n>» PARMS=p 


| 


EPILOG DROP= 
NO 


where: 


procname is the entry point name of the routine. 


LASTREG is a number between 3 and 12, inclusive, which indicates the 
highest register to be modified by the routine between 3 and 12. 


VARS is the number of bytes required for any local data, including 


passed-in parameters. 


PARMS is the number of bytes required for the largest parameter list 


to be built within the routine. 


DROP indicates whether register 2 


is to be dropped as a base regis-— 


ter after the epilogue is executed. 


defaults: 
LASTREG=12 
VARS=0 
PARMS=0 


DROP=YES 
Figure 81. PROLOG/EPILOG macros 
If an Assembler routine has at least 


one of the following characteristics, 
the general interface must be used: 


° It calls a Pascal/VS routine; 
° It is recursive; 
° Program errors must be intercepted 


and diagnosed by the Pascal/VS run- 
time environment. 


Two Assembler macros are available 
which are used to generate the prologue 
and epilogue of an Assembler routine 
with a general Pascal/VS interface. 
The macro names are PROLOG and EPILOG 
and their forms are described in the 
figure above. 


The PROLOG macro preserves any regis- 
ters that are to be modified and allo- 
cates storage for the DSA. It also 
includes code to recover from a stack 
overflow and program error. The label 
of the macro is established as an ENTRY 
point; register 2 is established as the 
base register for the first 4096 bytes 
of code. 


Upon entering a routine prior to exe- 
cuting the PROLOG code, the following 
registers are expected to contain the 
indicated data: 


° Register 1 - address of the parame- 
ter list built by the caller, which 


is 144 bytes into the DSA to be 
used by the called routine. 


° Register 12 - address of the Pascal 
Communication Work Area (PCWA). 


° Register 13 - address of the DSA of 
the calling routine. 


° Register 14 - return address. 


° Register 15 - address of the start 
of the called routine. 


Upon executing the code generated by 
the PROLOG macro, the registers are as 
follows: 


° Register 0 - unchanged 


° Register 1 - address of an area of 
storage in which parameter lists 
may be built to pass to other rou- 
tines. 


° Register 2 - base register for the 
first 40396 bytes of code within the 
invoked routine. 

° Registers 3 through 11 - unchanged. 

° Register 12 - unchanged 

° Register 13 - address of the local 
DSA of the routine just invoked. 


The first 144 bytes is the register 
save area for the invoked routine. 
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Following the save area is where established by the prologue. The macro 


the parameters passed in by the will cause register 2 to be dropped as 

caller are located. Immediately a base register unless DROP=NO is spec- 

after the parameters is storage for ified. 

local variables followed by a 

parameter list build area. The contents of the floating point reg- 
isters are not saved by the PROLOG mac- 

Register 14 - unchanged. ro. If the floating point registers 
are modified, they must be restored to 

Register 15 - unpredictable. their original contents prior to 


returning from the routine. 


The EPILOG macro restores the saved 

registers, then branches back to the A skeleton of a e$general-interface 
calling routine. In order for the epi- Assembler language routine which may be 
logue to execute properly, register 13 called by a Pascal/VS program is given 
must have the same contents as was below. 


KK KK KK OK OK OK 


The following names have the indicated meaning 

"csectnam' is the name of the csect in which the routine resides 

"procname’ is the name of the routine. 

"parmsize' is the length of the passed-in parameters 

"varsize' is the storage required for the local variables 

"lastreg’ is the highest register Cup to 12) which will be modified 

'plist' is the length of the largest parameter list required for calls 
to other routines from "procname" 


csectnam CSECT 


* 


procname PROLOG LASTREG=lastreg, VARS=varsi zetparmsize,PARMS=plist 


<== insert code here 


EPILOG 
END 


Figure 82. General interface to an Assembler routine: skeletal code to be 
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13.1.3 Receiving Parameters From Rou- 
tines 


Parameters received from a Pascal/VS 
routine are mapped within a list in the 
manner described in "Parameter 
Passing" on page 97. At invocation 
register 1 contains the address of this 
list. 


If the general interface (see "Writing 
Assembler Routine with General Inter- 
face" on page 107) is used in writing 
the Assembler routine, passed-in 
parameters start at offset 144 from 
register 13 after the prologue has been 
executed. 


13.1.4 Calling Pascal/VS Routine from 
Assembler Routine 


An Assembler language routine that was 
invoked from a Pascal program may call 
a Pascal procedure provided that: 


e the general Pascal/VS interface 
was incorporated within the Assem- 
bler routine, and 


° the Pascal/VS routine to be called 
is declared as external. 


Sea Figure 84 on page 110 as an 
example. 


If the Assembler routine was not 
invoked from a Pascal/VS routine, then 
the Pascal/VS run time environment must 
be set up prior to entering the 
Pascal/VS routine. To do this, the 


Pascal procedure must be declared with 
the MAIN or REENTRANT directive. (See 
Figure 86 on page 112 for an example.) 
When such a procedure is invoked for 
the first time, a minimum environment 
is created. On subsequent calls, this 
environment is restored prior to exe- 
cuting the procedure. To remove the 
environment (free stack space, etc.), 
the procedure PSCLHX is provided. 


Prior to making the call to a Pascal 
procedure from Assembler’ language, 
register 1 must contain the value 
assigned to it within the PROLOG code. 
Parameters to be passed are stored into 
appropriate displacements from regis- 
ter 1 as described in "Parameter 
Passing" on page 97. 


At the point of call, register 12 must 
contain the address of the Pascal Com- 
munications Work Area CPCWA). This 
will be the case if the Assembler rou- 
tine was invoked from a Pascal/VS rou- 
tine and has not modified the register. 


To perform the call, a V-type constant 
address of the routine to be called is 
loaded into register 15 and then the 
instruction 'BALR 14,15' is executed. 


13.1.5 Sample Assembler Routine 


In Figure 83 on page 110 and Figure 84 
on page 110, a sample Assembler routine 
is listed which may be called from a 
Pascal/VS program. This routine exe- 
cutes an OS TPUT macro to write a line 
of text to a user's terminal. 
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typa 
BUFINDEX = 0..80; 
BUFFER = packed arrayl[1..80] of CHAR; 


(Xthis routine is in assembly language) 


procedure TPUTC 
const BUF : BUFFER; 
LEN : BUFINDEX); 
EXTERNAL; 


(Xthis routine is called from the assembly language routine) 
procedure ERROR( 
RETCODE: INTEGER; 
const MESSAGE: STRING); 


ENTRY; 
begin 
WRITELNCOUTPUT, MESSAGE, ', RETURN CODE = *, RETCODE) 
end; 
Figure 83. Pascal/VS description of Assembler routine: the Assembler rou- 


tine is shown in Figure 84. 


TIGSEG CSECT 
TPUT PROLOG LASTREG=4.VARS=8 only registers 3 and 4 are modified 
* 
3,144¢€13) load address of ‘BUF’ parameter 
4,148(013) load value of ‘LEN’ parameter 
€3),04) write content of 'BUF’ to terminal 
15,15 check return code 
BZ TPUTRET if no error then return 
build parm list for call to 'ERROR'’ 
ST 15,0¢€1) assign to 'RETCODE’ parameter 
LA 3,TPUTMSG load address of message 
ST 3,41) assign to 'MESSAGE' parameter 
L 15,=VCERROR) load address of 'ERROR' procedure 
BALR 14,15 call 'ERROR' 
* 
TPUTRET EPILOG 
* 
TPUTMSG DC AL2CL'TPUTTEXT) halfword length of string 
TPUTTEXT DC C'TPUT ERROR' message text 
END 


Figure 84. Sample Assembler routine: this routine is invoked by a 
Pascal/VS routine and, within itself, invokes a Pascal/VS rou- 
tine. 
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13,1.6 Calling a Pascal/VS Main Pro- 
gram from Assembler Routine 


A Pascal/VS program may be invoked from 
an Assembler language routine by load- 
ing a V-type address constant of the 
main program name into register 15 and 
executing a BALR instruction with 14 as 
the return register. 


Program to be called: 


program test; 


begin 


end. 


The convention employed in passing 
parameters to a program is dependent on 
whether you are running under CMS or 
under TSO (Cor OS Batch). Both con- 
ventions require that register 1 be set 
to the address of the parameter data. 


Assembler instructions to perform the call under CMS: 


1,PLIST 
15,=V(TEST) 
14,15 


OF 

CL8'TEST® 
CL8' token 
CL8* token 


“CLB' token 
8X'FF! 


Assembler instructions to perform the call under VS2 Cand TS0): 


LA 1,PLIST 
15,=V(TEST) 
14,15 


OF 
DC XL1°80! 
DC AL3CPARMS) 


DC FL2"length! 


Figure 85. 


set first bit of address 


length of parameter string 
pc C'parm string goes here’ 


Example of calling a Pascal/VS program from an Assembler routine 
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Pascal/VS procedure to be called: 


SEGMENT SQUARE; 


procedure SQUARECVar X : REAL); 


MAIN; 
procedure SQUARE; 
begin 
X := XX 
end; . 


Assembler routine to call Pascal/VS procedure: 


TOSQ 


PLISTI 
x 
SAVEAREA D 


Figure 86. 
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CSECT 

USING *,15 

ST 14,12,12(€13) 
13,SAVEAREA+4 

VEAREA 

$Tl 

CSQUARE) 


ST2 
CPSCLHX) 


VEAREAt4 
»12¢133 


2, 
x 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
A 
D 
A 
F 
1 
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establish addressability 
save callers registers 
save address of callers save area 


establish addressability 

set new save area 

Reg 1 points to parameter list 

load address of Pascal procedure 
call SQUARE 

reg 1 points to parameter list 

load address of Pascal procedure 
call PSCLHX to tarminate environment 
return 


PARAMETER LIST 
PARAMETER LIST 


Example of Assembler as the caller to PascalsVS 


Pascal/VS program which invokes an Assembler routine named SUM: 
program FROMPSCL; (%Pascal program heading 
procedure SUM(var I : INTEGER; 
const J : INTEGER); 
FORTRAN; 
> INTEGER; (Define two local variables 


(¥Set running sum to zero 
1 to 10 do (¥loop through ten values 


SUMCI,J);3 (¥compute the next sum 
WRITELNC' The current running sum is ',1:0); 
ena; 


CXFROMPSCL 


Assembler routine which is being invoked from Pascal program: 


SUM CSECT 
USING *,15 establish addressability 
14,12,12¢13) save callers registers 
13,SAVEAREAt4 save address of callers save area 
5,0 
establish addressability 
set new save area 
get address of I 
get I 
get address of J 
I=I+#+4J 
return the new value of I 
return . 


B 
SAVEAREA 


Figure 87. Example of Pascal/VS as the caller to Assembler 
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13.2 PASCAL/VS AND FORTRAN 


Communication between FORTRAN and Pas- 
cal/VS is accomplished by use of the 
MAIN directive (FORTRAN to Pascal/VS) 
and the FORTRAN directive (Pascal/VS to 
FORTRAN). 


13.2.1 Pascal/vS as the Caller to 


FORTRAN 


Data may be passed between FORTRAN and 
Pascal/VS through the parameter list or 
FORTRAN COMMON. If you choose to COM- 
MON, specify the name of the COMMON 
block as a Pascal/VS def variable. 


Pascal/VS program that calls a FORTRAN subroutine: 


program FROMPSCL; 
procedure SUM(var [ 


const J 
FORTRAN; 
var 


I,J > INTEGER; 
begin 


I:= 03 

for J := 1 to 10 do 
begin 

SUM(T,J)3 


INTEGER; 
INTEGER); 


(*Pascal program heading 


(*Define two local variables 


(¥Set running sum to zero 
(¥loop through ten values 


(¥compute the next sum 


WRITELNC'’ The current running sum is ',1:0); 


end; 
end . 


FORTRAN subroutine: 


SUBROUTINE SUMCT,J) 
rr 

RETURN 

END 


Figure 88. 


The FORTRAN directive instructs 
Pascal/VS to utilize exactly the same 
calling conventions employed by FOR- 
TRAN. This restricts the form of the 
parameter list, namely you may not pass 
a parameter by value; you may pass a 
parameter by var or by const. If you 
choose the latter mechanism, the FOR- 
TRAN subprogram must not modify the 
parameter. 
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CXFROMPSCL 


Example of Pascal/VS as the caller to FORTRAN 


Execution errors that occur during the 
execution of the FORTRAN program will 
be handled by the Pascal runtime sup- 
port routines. If you desire to enable 
the error handling of FORTRAN” you 
should invoke "VSCOM#™" at the appropri- 
ate entry) point. Consult the VS 
FORTRAN Application Programming Guide 
$C26-3985 for details 


13.2.2 FORTRAN as the Caller to Pas- 
cal/VS 


SEGMENT SQUARE; 
procedure SQUARE(var X 
MAIN; 
procedure SQUARE; 
begin 
X =X * X 
end;. 


REAL); 


FORTRAN program that 


REAL®8& AREAL 
AREAL = 4.0 
CALL SQUARECAREAL ) 
PRINT 1, AREAL 
CALL SQUARECAREAL) 
PRINT 1, AREAL 
CALL SQUARECAREAL) 
PRINT 1, AREAL 
CALL SQUARECAREAL) 
PRINT 1, AREAL 
C TERMINATE PASCAL ENVIRONMENT 
CALL PSCLHXC0) 
STOP 
1 FORMAT (F1l2.0) 
END 


Figure 89. 


Pascal/VS permits a FORTRAN program to 
call a Pascal procedure as a 
subprogram. To do this you specify the 
Pascal procedure with the MAIN direc- 
tive. 


The first invocation of any procedure 
with a MAIN directive will cause Pascal 
to establish the appropriate anviron- 
ment for its execution. Subsequent 


Pascal/VS procedure to be called from FORTRAN program: 


invokes Pascal procedure: 


Example of FORTRAN as the caller to Pascal/VS 


calls will use the same environmant 
that was set up on the first call. 


It is your responsibility to clean up 
the Pascal environment; this is done by 
invoking the procedure "PSCLHX". 


If Pascal is not the main program, then 


Pascal will not attempt to handle any 
errors during execution. 
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13,3  PASCAL/VS AND COBOL 


Communication between COBOL and 
Pascal/VS is accomplished by use of the 


13.3.) Pascal/VS as the Caller to 
COBOL 


MAIN directive (COBOL to Pascal/VS) and 
the FORTRAN directive (Pascal/VS to 
COBOL). 


Pascal program that calls a COBOL subprogram: 


program FROMPSCL; 
procedure SUMX(var I 


const | 
FORTRAN; 
var 
I,J : INTEGER; 
begin 
I := 0; 
for ‘= 1 to 10 do 
begin 
SUMXCI,J)3 


WRITELNC'The current running 


end; 
end . 


COBOL subprogram: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. SUMX. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
DATA DIVISION. 

LINKAGE SECTION. 


INTEGER; 
INTEGER); 


(¥Pascal program heading %) 


(*Define two local variables *) 


(¥Set running sum to zero *) 
(¥loop through ten values %) 
(¥compute the next sum %) 


sum is ',I:1);3 


(¥FROMPSCL *) 


77 I PIC IS 999999999 USAGE IS COMPUTATIONAL. 
77 J PIC IS 999999999 USAGE IS COMPUTATIONAL. 


PROCEDURE DIVISION USING I J. 
ADD J TO I. 
GOBACK. 


Figure 90. 


The FORTRAN directive instructs 
Pascal/VS to utilize exactly the same 
calling conventions employed by FOR- 
TRAN which is also equivalent to COBOL. 
This restricts the form of the parame- 
ter list, namely you may not pass a 
parameter by value; you may pass a 
parameter by var or by const. If vou 
choose the latter mechanism, the COBOL 
subprogram must not modify the parame- 
ter. 


Execution errors that occur during the 


execution of the COBOL program will be 
handled by the Pascal runtime support 
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Example of Pascal/VS as the caller to COBOL 


routines. Pascal will not issue a call 
to ILBOSTPO (which sets up the COBOL 
error recovery). You may call this 


routine if you would like the "STOP 
RUN" statement of COBOL to treat the 
Pascal calling procedure as a main 
entry point of a COBOL program. Con- 


sult the OS/VS COBOL Compiler and 
Librar Programmer's Guide, 5$C28-6483 


for details. 


A COBOL program which is communicating 
with Pascal/VS must net use the dynamic 
loading feature. 


13.3.2 COBOL as the Caller to 
Pascal/Vs 


Pascal procedure that is to be called from COBOL: 


SEGMENT SQUARE; 
procedure SQUARE(var X 
MAIN; 
procedure SQUARE; 
begin 
X ?:= X¥ * X 
end; 


REAL); 


COBOL program which calls a Pascal procedure: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. TOS@. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
DATA DIVISION. 

LINKAGE SECTION. 


77 AREAL USAGE IS COMPUTATIONAL-2. 
77 AZERO USAGE IS COMPUTATIONAL PIC IS 999999999. 


PROCEDURE DIVISION. 
MOVE 2 TO AREAL. 
CALL "SQUARE" USING AREAL. 
DISPLAY AREAL. 
MOVE 0 TO AZERO. 
CALL "PSCLHX" USING AZERO. 
MOVE 0 TO RETURN-CODE. 
STOP RUN. 


Figure 91. 


Pascal/VS permits a COBOL program to 
call a Pascal procedure as a 
subprogram. To do this you specify the 
Pascal procedure with the MAIN direc- 


tive. 


The first invocation of any procedure 
with a MAIN directive will cause Pascal 
to establish the appropriate environ- 
ment for its execution. Subsequent 


Example of COBOL as the caller to Pascal/VS 


calls will use the same environment 
that was created in the first call. 


It is your responsibility to clean up 
the Pascal environment, this is done by 
invoking the procedure "*PSCLHX". If 
Pascal is not the main program, then 
Pascal will not attempt to handle any 
errors during execution. 
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13.4 PASCAL/VS AND PL/I 


PL/I). In addition, you may use the 
REENTRANT directive instead of tha MAIN 
directive in order to davelop a REEN- 


Communication between PL/I and TRANT call to Pascal. 
Pascal/VS is accomplished by use of the 
MAIN directive (PL/I to Pascal/VS) and 
the FORTRAN .directive (Pascal/VS to 


13.4.1 Pascal/VS as the Caller to 


PL/I 


Pascal program which calls a PL/I procedure: 


program FROMPSCL; 
procedure SUMC(var I 
const J 
FORTRAN; 
var 
I,J > INTEGER; 
begin 
I := 0; 
for -= 1 to 10 da 
begin 
SUMCI,J);3 


(¥Pascal program heading 
INTEGER; 
INTEGER); 


(¥Define two local variables 


C¥Set running sum to zero 
(¥loop through ten values 


(¥compute the next sum 


I,J) 
WRITELNC'The current running sum is ',1:0); 


end; 
end . 


C¥FROMPSCL 


PL/I procedure that is invoked from Pascal: 


SUM: PROC (I,J) OPTIONSCFORTRAN); 
DCL (I,J) FIXED BINARY(31,0); 


I=I1I+ J; 
RETURN; 
END; 


Figure 92. Example of Pascal/VS as the caller to PLZI 


The FORTRAN directive 


instructs The FORTRAN directive restricts the 


Pascal/VS to utilize exactly the same form of the parameter list, namely you 
calling conventions employed by FOR- may not pass a parameter by value; you 
TRAN. PL/I will employ FORTRAN calling may pass a parameter by either var or 
conventions if "FORTRAN" is specified const. If you choose to latter mech- 
in the OPTIONS clause. Consult the anism, the PL/1 procedure must not 


PL/I Programmer's Guide, 


§C33-0037 modify the parameter. 


CCMS) and SC33-0006 (0S) for details. 
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2 


13.4.2 PL/I as the Caller to 
Pascalsvs 


Pascal procedure which is called from PL/I: 


SEGMENT SQUARE; 
Pracedure SQUARECvar X =: REAL); 
MAIN; 
procedure SQUARE; 
begin 
X ?:= X * X 
end; 


PL/I program which calls a Pascal procedure: 


TQOSQ: PROC OPTIONS(MAIN); 
DCL SQUARE ENTRY EXTERNAL; 
DCL PSCLHX ENTRYCFIXED BINARYC31,0)) EXTERNAL; 
DCL ZERO FIXED BINARY(31,03); 
AREAL = 4.0; 
CALL SQUARECAREAL); 
PUT LISTCAREAL); 
CALL SQUARECAREAL); 
PUT LISTCAREAL}; 
CALL SQUARECAREAL); 
PUT LISTCAREAL); 
CALL SQUARECAREAL); 
PUT LISTCAREAL?); 


ZERO = 03 
CALL PSCLHX(ZERQ); 
END; 


Figure 93, Example of PL/I as the caller to Pascal/V$ 
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Pascal procedure which is called from a reentrant PL/I program: 


SEGMENT SQUARE; 
procedure SQUARE(var E 
REENTRANT; 
procedure SQUARE; 

begin 
X == XK * X 
end; . ig 


INTEGER; 


var X REAL); 


ReentraAt PL/I program which invokes a Pascal procedure: 


TOSQ: PROC OPTIONS{(MAIN REENTRANT);3 


DCL SQUARE ENTRY EXTERNAL; 


DCL PSCLHX ENTRYCFIXED BINARY(31,0)) EXTERNAL; 


DCL SAVE FIXED BINARY(31,0); 
AREAL = 4.0; 

SAVE = 0; 

CALL SQUARECSAVE,AREAL); 
PUT LISTCAREAL); 

CALL SQUARECSAVE,AREAL); 
PUT LISTCAREAL); 

CALL SQUARECSAVE,AREAL); 
PUT LISTCAREAL); 

CALL SQUARECSAVE,AREAL); 
PUT LISTCAREAL); 

CALL PSCLHXCSAVE); 

END; 


Example of 
TRANT directive 


Figure 94, 


Pascal/VS permits a PL/I program to 
call a Pascal procedure as a 
subprogram. To do this you specify the 
Pascal procedure with the MAIN direc- 
tive. 


The first invocation of any procedure 
that has a MAIN directive associated 
with it will cause Pascal to establish 
the appropriate environment for its 
execution. Subsequent calls will use 
the same environment that was created 
on the first call. 


A call to PSCLHX will dispose of the 
Pascal environment and release all mem- 
ory that it utilizes. 


The Pascal/VS run time support will 
not attempt to handle any errors during 
execution, Unless the main program is 
in Pascal. 


The REENTRANT directive may be used in 
place of the MAIN directive if the pro- 
gram must be reentrant. In this case 
you must assist Pascal/VS in keeping 
track of the location of the Pascal/VS 
execution environment. The first 
parameter to a REENTRANT procedure must 
be an integer passed by var. The first 
call to the procedure must pass as its 
first parameter, a FIXED BIN(31,0) var- 
iable which has been set to the value 
zero. Upon return from the first call, 
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PL“I as the caller 


to Pascal/VS: Use of the REEN- 


this variable will contain an address 
which refers to the newly created Pas- 


cal/VS environment. This variable 
should be passed unaltered to subse- 
quent calls so that the Pascal/VS 


environment may be reentered. 


To terminate the Pascal/VS environment 
that was set up by the REENTRANT proce- 


dure, the "PSCLHX" should be called 
with the variable that contains the 
address. See Figure 94 for an example. 


13.5 DATA TYPES COMPARISON 


Every language has numerous data types 
that are suited for the applications 
for which the language was intended. 
When passing data between programs 
written in different languages you must 
be aware which data types are the same 
and where there 15 no equivalent repre- 
sentation. 


Some data types in other languages havea 
no direct equivalent in Pascal; 
however, you can often create new user 
data types in Pascal that will simulate 
some of the data types found in other 
languages. For example, you could 
define a record type that is identical 
to FORTRAN's COMPLEX type. 


Figure 95 on page 121 compares Pascal 
data types with the equivalent in FOR- 
TRAN, COBOL and PLZI. 


Pascal/VS makes no attempt to remap any 
storage when an inter-language call is 
made, This means that beause FORTRAN 


stores its arrays in column-major order 
and Pascal stores its arrays in 
row-major order, a call between FORTRAN 
and Pascal/VS procedures appears to 
transpose the array. 


Data Type Equivalences Between Different Langauges 
Pascal/VS FORTRAN COBOL 


CHAR CHARACTER*1 

BOOLEAN LOGICAL*1 

INTEGER INTEGER®4 

packed INTEGERX2 
-32768..32767 

packed na 


0..65536 
packed ~128..127 na 


packed 0..255 na 

REAL REAL*8& 

SHORTREAL REAL *4 

packed CHARACTER®n 

arrayl[1..nJ] of 
CHAR 

STRING(m) na 

set of 0..n na 

a id na 

array dimensioned 
variable 

record na 

space na 

Figure 95. Data Type Comparisons 


PIC X CHAR 
na FIXED BINARY(1,0) 


PIC $999999999 
USAGE IS COMP 


FIXED BINARYC( 31,0) 


PIC $9999 USAGE 
IS COMPUTATIONAL 


FIXED BINARY(C15,0) 


na na 
na FIXED BINARYC7,0) 
na na 


COMPUTATIONAL-2 REAL FLOAT DEC(1i6) 


COMPUTATIONAL~1 REAL FLOAT DEC(6) 


PIC X(€n) or CHAR(n) 

PIC X OCCURS n 

TIMES 

na CHAR(m) VARYING 

na BITCnt1) 

na POINTER 

OCCURS dimensioned 
variable 

record structure 

na AREA 
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14.1 PROGRAM INITIALIZATION 


Upon invoking a Pascal/VS program, the 
routine which is responsible for estab- 
lishing the Pascal/VS execution time 
environment gains control and performs 
the following functions: 


1. Memory is obtained in which dynamic 
storage areas (DSA) are allocated 
and deallocated. 


2. The Pascal Communication Work Area 
(PCWA) is created and initialized. 


3. An environment is set up to inter- 
cept program interrupts (fixed 
point overflow, divide by zero, 
etc.) 


14.3 EXECUTION SUPPORT ROUTINES 


Procedure name Action Performed 


14.0 RUNTIME ENVIRONMENT OVERVIEW 


4. The main program is called. 


5. Upon return from the main program 
any open files are closed. 


6. Acquired memory is freed. 


7. Control is returned to the system. 


14.2 THE MAIN PROGRAM 


The main program is called as an ordi- 
nary procedure from the environment 
setup routine (PASCALVS). The entry 
point name of the main program is AMPX- 
BEGN. 


Execution Support Routines 


AMPXBCLK Initializes the execution clock 

AMPXCHKS Checks a set for membership 

AMPXCLCK Interogate the execution clock 

AMPXCRTE Initialize the PCWA 

AMPXDATE DATETIME procedure 

AMPXDATI System date and time 

AMPXDBCB Obtains a procedures DBCB pointer 

AMPXECLK Ends the the execution clock 

AMPXGOTO Handles goto out of block 

AMPXGTOK Obtains a token from user's execution parameters 
AMPXG12 Returns the contents of register 12 

AMPXG13 Returns the contents of register 13 

AMPXHALT HALT procedure 

AMPXINIT Initializes prior to execution of a Pascal program 
AMPXMAIN Interface for calling Pascal for other languages 
AMPXMOVE Memory to memory move 

AMPXMUS Adds elements to a set 

AMPXNAME Obtains a procedures name 

AMPXPAD Memory fill memory with blanks 

AMPXPARM PARMS function 

AMPXRETC RETCODE procedure 

AMPXSETV Memory fill of with a value 

AMPXSPAR Intialize for PARMS function 

AMPXTERM Termination after execution of a Pascal program 
AMPXTOK TOKEN procedure 

AMPXTRAC TRACE procedure 

AMPZABND Abnormal termination routine 

AMPZCVD Convert to decimal 

CMS CMS procedure 

PASCALVS Main entry point for a Pascal/VS main program 
PSCLHX Terminates execution for interlanguage calls 


These routines provide miscellanaocus 


functions such as program initializa- 


tion and low level routines such as 
fast memory move. 
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14.4 ZINPUT/OUTPUT ROUTINES 


Internal Input/Output Routines 


Action Performed 


Procedure name 


AMPXCLOS CLOSE procedure 

AMPXCOLS COLS function 

AMPXGET GET procedure (TEXT files) 

AMPXGETR GET procedure 

AMPXOPEN RESET, REWRITE or UPDATE procedures 

AMPXOPN1 Initializes a PCB prior to opening 

AMPXOPN2 Sets a PCB after opening 

AMPXPARS Analyze the optional string on RESET or REWRITE 

AMPXPCBC Closes a file (PCB) 

AMPXPDS PDS support routines (PDSIN and PDSOUT) 

AMPXPUT PUT procedure 

AMPXRCHR Reads into a CHAR 

AMPXRINT Reads into an INTEGER 

AMPXRLIN Reads to end of line (TEXT file) 

AMPXRR Reads a REAL value 

AMPXRRDY Prepares a TEXT file for input 

AMPXRREC Reads one record (non TEXT files) 

AMPXRSTR Reads into a STRING 

AMPXRTXT Reads into an array of CHAR 

AMPXSEEK SEEK procedure 

AMPXSTAT Obtains the status of a file 

AMPXTIO Terminate I/O processing 

AMPXWB Writes a BOOLEAN value 

AMPXWCHR Moves data to an I/0 output buffer 

AMPXWCHS Writes a CHAR to a TEXT file 

AMPXWINT Writes an INTEGER to a TEXT file 

AMPXWLIN Writes an end-of-line to a TEXT file 

AMPXWR Writes a REAL value 

AMPXWRDY Prepares a TEXT file for output 

AMPXWREC Writes one record (non TEXT files) 

AMPXWSTG Writes a string to a TEXT file 

AMPXWTXT Writes an array of CHAR to a TEXT file 

AMPYCLOS System dependent @SAM close 

AMPYDFLT Applies System dependent defaults to a file 

AMPYGET System dependent get procedure 

AMPYOPEN System dependent QSAM open 

AMPYPAGE PAGE procedure 

AMPYPDS System dependent PDS interface 

AMPYPUT System dependent put procedure 

AMPYSEEK System dependent seek procedure 

AMPZDAMR Issues a READ for a BDAM data set 

AMPZDAMW BDAM write procedure 

AMPZDCBC Close on an OS DCB 

AMPZDCBO Open on an OS DCB 

AMPZFIND Issues OS FIND 

AMPZGET Issues a QSAM GET 

AMPZPUT Issues a QSAM PUT 

AMPZPUTX Issues a QSAM PUTX 

AMPZSAMR Issues a READ for a BSAM data set 

AMPZSAMW BSAM write procedure 

AMPZSTOW Issues 0S STOW 

AMPZTGET Issues a TGET (05) or RDTERM (CMS) 

AMPZTPUT Issues a TPUT (05) or WRTERM (CMS) 
The I/0 operations (Which appear as internal procedures within the runtime 
calls to predefined procedures in Pas- environment. 


cal/VS) are implemented as calls to 
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i4.5 ERROR 


DLING 


Error Handling 


AMPXCHKR 


AMPXDIAG 
AMPXERR 
AMPXIQER 
ONERROR 


Intercepts execution time checking errors 
Intercepts program exceptions 

General axecution time arror handler 

If@ error intercept routine 

Default ONERROR procedure 


When the runtime environment detects an AMPXERR is the central routine, it is 


error condition, 


it calls a routine to always called from the other routines: 


handle the error. There are several it then calls ONERROR, the user pro- 
different routines, one routine for vided error handler, and then completes 
each of class of error (e.g. I/0 error, the error handling. 

program exception etc). The routine 


14.6 CONVERSION ROUTINES 


AMPTTOR 
AMPXBTGS 
AMPXCTOS 
4 AMPXSTOS 
AMPXITOS 
AMPXOTOS 
AMPXPACK 
AMPXRTOS 
AMPXSTOC 
AMPXSTOG 
AMPXSTOT 
AMPXSTOR 
AMPXSTOT 
AMPXTTOS 
AMPXUCAS 
AMP XUNPK 
ITOHS 


Converts a REAL (CEBCDIC) to REAL 

BOOLEAN te string conversion 

Converts a CHAR to a string 

Converts a string to a string 

Converts an INTEGER to a string 

Converts an offset in a procedure to a statement number 
PACK procedure 

Conversion for REAL to a STRING 
Conversion for STRING to a CHAR 
Conversion for STRING to a STRING 
Conversion for STRING to an INTEGER 
Converts a REAL CEBCDIC) to REAL 

Conversion for a STRING to an array of CHAR 
Appends an array of CHAR to a string 

Lower case toa upper case conversion 

UNPACK procedure 

Integer to hexadecimal string conversion 


There are several places where doing I70 on TEXT files and when you 
Pascal’VS must perform data conver- use READSTR and WRITESTR. 
sians, They take place when you are 
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14.7 MATHEMATICAL ROUTINES 


Procedure name 


Mathematical Routinas 


Action Performed 


AMPXATAN ARCTAN function 

AMPXCOS COS function 

AMP XEXP EXP function 

AMPXLN’ LN function 

AMPXRAND RANDOM procedure 

AMPXSIN SIN function 

AMPXSQRT SQRT 
The predefined functions are provided Ce.g. SIN) to an internal name Ce.g. 
as Pascal/VS functions. The Pascal/V5 AMPXSIN). 


compiler changes the user previded name 


14.8 STRING ROUTINES 


> 
String Routines 

Procedure name Action Performed 

AMPXSCOM COMPRESS function (long strings) 

AMPXSDEL DELETE function Clong strings) 

AMPXSLTR LTRIM procedure Clong strings) 

AMPX$S5UB SUBSTR function Clong strings? 

AMPXSTRI TRIM function Clong strings) 

AMPXCAT Concatenates 2 toe 9 strings 

AMPXCOMP COMPRESS function (short strings) 

AMPXDELE DELETE function (short strings) 

AMPXINDX INDEX procedure 

AMPXLTRI LTRIM procedure (short strings) 

AMPXSUBS SUBSTR function (short strings) 

AMPXTRIM TRIM function Cshort strings) 

LPAD LPAD procedure (see Appendix C) 

PICTURE PICTURE function (see Appendix (©) 

RPAD RPAD procedure (see Appendix C) 
The predefined functions and proce- ble. In order to use the short form 
dures are provided as Pascal/VS func- the Pascal/VS compiler must determine 
tions and procedures. The Pascal/v5 that the resulting string will be less 
compiler changes the user provided name than 1000 bytes long. If the size 
(e.g. SUBSTR) to an internal name (e.g. can't be limited by compiler analysis, 
AMPXSUBS). Several routines are pro- the compiler uses the long form which 


Vided in two forms: 


long and short. passes the results through the heap. 


The short form is always used if possi- 
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14,9 MEMORY MANAGEMENT ROUTINES 


AMPXALOC Basic storage allocator 

AMPXDISP DISPOSE procedure 

AMPXFREE Basic storage de-allocator 

AMPXIDSP Dispose for the I/0 routines 

AMPXINEW New for the I70 routines 

AMPXMARK MARK procedure 

AMPXNEW NEW procedure 

AMPXVNEW NEW procedure (when record is allocated with tags) 
AMPXRLSE RELEASE procedure 

AMPXTMEM Termination processing for memory management 


The NEW procedure generates a call to 
the internal procedure AMPXNEW. This 
procedure allocates storage within a 
heap. If a heap has not yet been cre- 
ated, NEW will obtain memory from the 
operating system to create a heap. 


The DISPOSE procedure generates a call 
to the procedure AMPXDISP. This proce-~- 
dure deallocates the heap storage 
acquired by a preceding call to 
AMPXNEW. 


The MARK procedure generates a call to 
the procedure AMPXMARK. This procedure 
creates a new heap from which subse- 


Memory Management Routines 


quent calls to AMPXNEW will obtain sto- 
rage. 


The RELEASE procedure generates a call 
to the procedure AMPXRLSE. This proce- 
dure frees a heap that was previously 
created via the AMPXMARK procedure. 
Subsequent calls to AMPXNEW will obtain 
storage from the heap which was active 
prior to the call of AMPXMARK. 


The I70 routines have access to a sepa- 
rate heap is controlled with the rou- 
tines AMPXINEW and AMPXIDSP. Thus, I70 
buffers and file control blocks are in 
a distinct area from the users area. 
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Release 2.1] of Pascal/V5 has several 
differences from “standard” Pascal. 
Most of the deviations are in the form 
of extensions to Pascal in those areas 
where Pascal does not have suitable 
facilities. 


15.1 PASCAL/VS RESTRICTIONS 


Pascal/V5 contains the following 
restrictions that are not in standard 
Pascal. 


Conformant array parameters 
The conformant array mechanism for 
passing array variables to rou- 
tines is not supported. 


Note: Conformant arrays are only 
required by the [50 level 1 standard; 
the I50 level 0 standard and the ANSI 
standard do not require them. 


Note: In Release 2,0, procedures which 


are passed as Parameters were 
restricted to the outer most nesting 
level. In Release 2.1, this restric- 


tion was removed. 


15,2 MODIFIED FEATURES 


Pascal/V¥5 has modified the meaning of a 
negative length field qualifier on an 
operand within the WRITE statement. 


15.3 NEW FEATURES 


Pascal/V5 provides a number of exten- 
sions to Pascal. 


° Separately compilable modules are 
supported with the SEGMENT defi- 
nition. 

e "Internal static™ data is sup- 


ported by means of the Static dec- 
larations. 


. "External static data is sup- 
ported by means of the def and ref 
declarations, 


e Static and external data may be 
initialized at compile time by 
means of the value declaration. 


. Constant expressions area permitted 
wherever @ constant is permitted 
except as the lower bound of a sub- 
range type definition. 


15.0 COMPARISON TO PASCAL 


The keyword "range" may be prefixed 
to a subrange type definition to 
permit the lower value to be a con- 
stant expression. 


A varying length character string 
15 provided. It is called STRING. 
The maximum length of a STRING is 
32767 characters. 


The STRING operators and functions 
are concatenate, LENGTH, STR, 
SUBSTR, DELETE, TRIM, LTRIM, COM- 
PRESS, INDEX, TOKEN, READSTR and 
WRITESTR, 


A new predefined type, STRINGPTR, 
has been added that permits you to 

allocate strings with the NEW pro- 
cedure whose maximum size is not 
cae until the invocation of 
EW. 


A new parameter passing mechanism 
15 provided that allows strings to 
be passed into a procedure or func- 
tion without requiring you to spac- 
ify the maximum size of the string 
on the formal parameter. 


The MAXLENGTH function returns the 
maximum length that a string vari- 
able can assume. 


Calls to FORTRAN subroutines and 
functions are provided for. 


The MAIN directive permits you to 
define «a4 procedure that may be 
invoked from a non Pascal enviroan- 
ment. A procedure that uses this 
directive is not reentrant. 


The REENTRANT directive permits 
you to define a procedure that may 
be invoked from a non Pascal envi- 
ronment. 4 procedure that uses 
this directive is reentrant. 


Files may be explicitly closed by 
means of the CLOSE procedure. 


The DDNAME to be associated with a 
file may be determined at execution 
time with the optional == string 
parameter on the procedures: 
RESET, REWRITE, UPDATE, TERMIN, 
TERMOUT, POSIN and PDSOUT. 


The parameters of the text file 
READ procedure may be 
length-quaelified. 


Files may be opened for updating 
with the UPDATE procedure. 


Input files may be opened as "IN- 


TERACTIVE™ so that I/70 may be done 
conveniently from a terminal. 
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Files may be opened for tarminal 
input CTERMIN) and terminal output 
(TERMOUT) so that I/0 may take 
Place directly to the user's termi- 
nal without going through the 
DDname interface. 


Files may be accessed based on rel- 
ative record number (random 
access). 


The PDSIN procedure opens a parti- 
tioned dataset for MACLIB) for 
input. The PDSOUT procedure opens 
a partitioned dataset (or MACLIB) 
for output. <A string parameter is 
required to set the member name, 


The space structure is provided for 
processing packed data. 


Records may be packed to the byte. 


The tagfield in the variant part of 
a record may be anywhere within the 
fixed part of the record, 


Fields of a record may ba unnamed, 


Tag specifications on racord vari- 
ants may be ranges (m..y). 


Integers may be declared to occupy 
bytes and halfwords in addition to 
full words, as a result of the 
packed qualifier. 


Sets permit the operations of set 
complement and set exclusive 
union. 


A function may return any type of 
data except a file. 


The operators '|[', '&', '8&' and 
'~' may be applied to data of type 
integer, When applied to integers, 
the operators act on a bit by bit 
basis. Shift operations on data 
are also provided. 


Integer constants may be expressed 
in binary and hexadecimal digits. 


Real constants (floating point) 
may be expressed in hexadecimal 
digits. 


String constants may be expressed 
in hexadecimal digits. 


The #INCLUDE facility provides a 
means to include source code from a 
library. 


A parameter passing mechanism 
(const) has tbeen defined which 
guarantees that the actual parame- 
ter is not modified yet does not 
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require the copy overhead of a pass 
by value mechanism. 


leave, continue and return are new 
statements that permit a branching 
capability without using a goto. 


Lebels may be either a numeric val- 
ue or an identifier. 


case statements may have a range 
notation on the component state~ 
ments. 


An otherwise clause is provided for 
the Case statement. 


The variant labels in records may 
be written with a range notation. 


The assert statement permits run- 
time checks to be compiled tnte the 
program. 


The following system interface 
procedures are supported: DATE- 
TIME, CLOCK, PARMS and RETCODE. 


Constants may be of a structured 
type (namely arrays and records). 


To control the compiler listing, 
the following listing directives 
are supported: “PAGE, “2CPAGE, 
“SKIP, and 4TITLE. 


The HALT procedure has been added 
to exit the program from an arbi- 
trary location. 


The TRACE procedure prints’ the 
trail of routine invocations. 


The LOWEST, HIGHEST, LBOUND, 
HBOUND and SIZEOF functions pro- 
Vide a means of acquiring informa— 
tion variables and types. 


MARK and RELEASE provide a means of 
controlling dynamic variable allo- 
cation. 


Both single and double precision 
floating point numbers are pro- 
Vided using the SHORTREAL and REAL 
types. 


Identifiers may contain a dollar 
sign ($) anywhere a letter may go 
and an underscore ¢_) anywhere a 
digit may go, 


The predefined constants MINREAL 
and MAXREAL contain the values of 
the smallest and largest real num- 
bers, raspectively. 


Tha ADDR function 
address of a variable. 


returns the 
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6. SYSTEM DESCRIPTION 


The PascalsV¥S compiler runs on the IBM 
System/370 to produce object coda for 
the same system. System/370 includes 
all models of the 370, 303x, and 43x x 
computers providing one of the follow- 
ing operating environments: 


* VM/CMS 

e VMs PC 

® os’Vs2 TSO 

° OS/VS2 Batch 


16.2 MEMORY REQUIREMENTS 


Under CMS, Pascal/VS requires a virtual 
machine of at least 768K to compile a 
program. Execution of a compiled pro- 
gram can be performed in a 256K CMS 
machine. 


The compiler requires a minimum region 
size of 512K under VS2 (MVS). A com- 
piled and link-edited program can exe- 
cute in a 128K region. 


The compiler is reentrant and may be 
loaded in a Shared area in MVS or 
mapped te a shared segment in CMS. 
However, the Pascal/sVS PID materials do 
not contain procedures to do this. 


16.3 IMPLEMENTATION RESTRICTIONS AND 
DEPENDENCIES 


Boolean exprassions 
Pascai/sVS "short circuits" boo- 
lean expressions involving the 
and and or operators. For exam- 
ple, given that A and B are boo- 


lean expressions and X is a 
boolean variable, the evaluation 
of 

X ?= A or Boar c 


would be performed as 


if A then 
X i= TRUE 


The evaluation of 


1? 
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X += A and B and Cc 
would be performed as 


if -A then 
X := FALSE 
else 
if -B then 
X == FALSE 
else 
KX r= C¢ 


See the section entitled "Boole- 
an Expressions" in the Pascai/V5 


Language Reference Manual for 
more details. 


Floating-point 
Some commonly required charac- 
teristics of System/370 float- 
ing-point arithmetic are shown 
in Figure 96 on page 132. 


Identifiers 
Pascal/VS permits identifiers of 
up to 16 characters in length. 
If the compiler encounters a lon- 
ger name, it will ignore that 
portion of the name longer than 
16 characters. 


Names of external variables and 
external routines must be unique 
Within the first 8 characters. 
Such names may not contain an 


underscore '_' within the first & 
characters. 

Integers 
The largest integer that may be 
represented is 2147483647 .27 


This is the value of the prede- 
fined constant MAXINT. 


The most negative integer that 
may be represented is 
-2147483648., This is the value 
cf the predefined constant MIN- 
INT. 


Routine nesting 
Routines may be nested wp toa 
eight levels deep. 


Routines passed as parameters 
The following standard routines 
may not be passed as parameters 
to another routine: 


ABS, ADDR, CHR, CLOSE, DISPOSE, 
EOF, EOQLN, FLOAT, GET, HBOUND, 
HIGHEST, LBOUND, LENGTH, LOWEST, 
MARK, MAX, NEW, ODD, ORD, PACK, 
PAGE, PDSIN, PDSOUT, PRED, PUT, 
READ, READLN, READSTR, RELEASE, 
RESET, REWRITE, ROUND, SIZEOF, 
SQR, STR, SUCC, TERMIN, TERMOUT, 


This is the highest signed value that may be represented in a 32 bit word. 


Implementation Specifications Slo 


Characteristic Decimal approximation 


Maxreal? 


Minreal? 


Epsilon‘ 


Floating-point Characteristics 


Exact Representation 


7.23700557733226E+75 ‘7 FFFFFFFFFFFFFFF'XR 


5.39760534693403E-79 "0010000000000000'XR 


1.38777878078145E-17 *3310000000000000'°XR 


The syntax "...°XR is tha way hexadecimal floating-point numbers are 
represented in Pascal/VS. See the section entitled "Constants" in the 


Pascal/VS Language Reference Manual. 


Maxreal is the largest finite floating-point number that may be 
represented. Its value is in the pradefinad constant MAXREAL. 


Minreal is the smallest positive finite floating-point number that 
may be represented. Its value is in the pradefined constant MINREAL. 


Epsilon is the smallest positive floating-point number such that the 
following condition holds: 


1.0t+tepsilon > 1.0 


This value is often needed in numerical computations involving con- 
verging serias. 


Figure 96. Characteristics of System/370 floating point arithmatic 


Sets 


132 


TRUNC, UNPACK, UPDATE, WRITE, ° 


WRITELN, WRITESTR 
A FORTRAN function or subroutine 
may not be passed as a parameter 
to a Pascal/VS routine. 
Given a set type of the form 

set of a..b 
where "a™ and “b" express the 
lower and upper bounds of the 


base scalar type, the following 
conditions must hold: 
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ORD(a) >= 0 
° ORD{(b) <= 255 


Size limitations 


The size of a single procedure or 
function must not exceed 8192 
bytes of generated code. 8192 
bytes represent approximately 
400 Pascal statements, depending 
on the complexity of the state- 
ments. The compiler will 
generate a diagnostic if this 
limit is reached. 


c 


17.0 PASCAL/VS MESSAGES. 


17.1 PASCAL/VS COMPILER MESSAGES 


No. Message and Explanation 
Oe ae a 


0 Not yet implemented 


The indicated construct is not currently jmplemented, 


1 Identifier expected 


2 Source continues after end of program 


The compiler detected text after the logical end of the program. 
This error is often caused by mismatched begin/end brackets. 


3 "END" expected 


Character in quoted string is not displayable 


The indicated character within a quoted string does not correspond 
to a valid displayable EBCDIC character. If the string is printed 
on a device, the character may be interpreted as a control character 
that could cause unpredictable results. 


If aocontrol character is intended, then the string should be 
represented in hexadecimal form. 


5 Symbol invalid ocr out of context 


The indicated symbol is not part of the syntax of the construct 


being scanned. The symbol should be deleted or changed. 


6 EGF before logical end of program 


The campiler came to the end of the source program before the log- 
ical end of the program was detected. This error is often caused by 
mismatched begin’end brackets. 


"BEGIN" expected 


semicolon '";' expected 


Routine may not be passed to FORTRAN subroutine 


The indicated declaration of a FORTRAN subroutine (a procedure head- 
ing with the FORTRAN directive) contains an argument which is a pro- 
cedure or function parameter. Procedures or functions may not be 
Passed to FORTRAN subroutines. 


No case labels specified 


A case statement with no case labels was found. A Case statemant 
may not be empty or consist only of an otherwise clause. 
1l Ambiguous procedure/function specification 

The routine directive EXTERNAL or FORTRAN Was applied to the indi- 


cated routine declaration that was alse declared as an ENTRY 
routine. Such a combination is contradictory. 
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12 


13 


14 


19 


20 


Multiply declared Label 


The indicated lakel has been previously declared within the sur- 
rounding routine. 


Label identifier expected 
Within the indicated label definition, a label identifier is 


missing. A label identifier is either an alphanumeric identifier or 
an integer constant within the range 0 to 9999. 


The characters °$" and ‘_' are not valid in standard Pascal 

This is a warning message that can occur when the LANGLYL(STANDARD) 
compile option is specified. An identifier 18 being declared which 
has aname containing characters which are not recognizable in 
"standard" Pascal. 


T=" expected 


Identifier required to be a type in tag field specification 

Within a fecord definition, a tag field is being declared, but the 
indicated identifier which is supposed to represent the tag field's 
type was not declared as a type. 


":' expected 


Parameters on forwarded routine not necessary 


A routine declaration which has been previously declared as FORWARD 
or EXTERNAL must not specify any formal parameters. Any formal 
parameters are assumed to have been specified previously on the 
associated declaration that contained the FORWARD/EXTERNAL direc- 
tive. 


Files passed by value not permitted 

The indicated formal value parameter is of a file type. A file var- 
jable may be passed to a routine only by the var or const mechanism; 
never by value. 


String literal constant is too long: exceeds 3190 


Because of an implementation restriction, a string constant may not 
excead 3190 characters in length. 


*)" expected 


Forwarded routine class conflict 


A procedure declaration was previously declared as a forwarded func- 
tion; or a function declaration was previously declared as a for- 
warded procedure. 


Routine nesting exceeds maximum 
The indicated procedure or function declaration exceeds the maximum 


allowed nesting level for routines. Routines may be nested toa 
maximum depth of &. 


Too many nested WITH statements or RECORD definitions 


This error occurs when too many lexical scopes are active. This can 


occur in multiply nested With statements and record definitions. 
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Type not needed on forwarded function 


A function declaration which has been previously FORWARDed must not 
specify a return type. The type specification is assumed to have 
been Specified previcusly on the associated declaration that con- 
tained the FORWARD directive. 


Missing type specification for funetion 
The indicated function header did not specify a raturn type. 
PROCEDURE/FUNCTION previously FORHARDed 

29 


The indicated routine declaration that contains the FORWARD or 
EXTERNAL directive was already previously forwarded. 


Additional errors in this line Were not diagnosed 


The indicated construct contained more errors, but were not diag- 
nesed due toe Space considerations. 


Tllegal hexadecimal or binary digit 


An invalid hexadecimal digit was detected within a hexadecimal con- 
stant specification of the form 


Moe. X, TlL.. ITXC, or fl. XRG 


or, an invalid binary digit Was detected within a binary constant 
specification of the form 


Te TBs 
The following characters are valid hexadecimal digits: 


0, V53 (2s 3, 4, 5, 6, 7, 8, 9, 4&4; B, CC, OD, E, F, 
a, by c, d, a, Ff 


The following characters are valid binary digits: 
0, 1 


z0 Unidentifiable character 


The indicated character is not recognized as a valid token, | 
Z1 Digit expected 


— 


A decimal digit was expected but missing at the indicated location. 


32 Real constant has too many digits 


The indicated floating point constant contains more digits than the 
compiler allows for in scanning. If this error should occur, please 
notify the compiler maintenance group at IBM. 


Integer constant too large 


The indicated integer constant is net within the range -2147483647 
to 2147483647, 


End of string not seen 


A string constant may not cross aline boundary. This error is 
often the result of mismatched quotes. 


If a string constant is too large to fit on one line, it must be 
broken up into multiple strings and concatenated with the || opera- 
tor. CConcatenation of string constants iS performed at compile 
time). 
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35 Hexadecimal integer constant may not exceed 8 digits 


The indicated hexadecimal constant exceeds the maximum allowed num- 
ber of digits. 


36 Char string is too large 


The indicated string constant exceeds 255 characters, which is the 
implementation limit. This may happen when multiple string con- 
stants are concatenated. 


37 Standard routines not permitted as parameters 


Standard routines which generate in line code may not be passed as 
parameters to other routines. The following is a list of such rou- 
tines: 


ABS, CHR, CLOSE, DISPOSE, EOF, EOLN, FLOAT, GET, HBOUND, 
HIGHEST, INTERACTIVE, LBOUND, LENGTH, LOWEST, MARK, MAX, NEW, 
ODD, ORD, PACK, PAGE, PRED, PUT, READ, READLN, RELEASE, RESET, 
REWRITE, ROUND, SIZEOF, SQ@R, STR, SUCC, TRUNC, UNPACK, WRITE, 
WRITELN, 

PDSIN, PDSOUT, READSTR, TERMIN, TERMOUT, UPDATE, WRITESTR 


38 Variable must be of type file 
The indicated variable is required to be of a file type. 
39 Must be of type TEXT 


The indicated variable is required to have been declared with the 
predefined type TEXT. 


40 Required parameters are missing 


The indicated READ or WRITE statement contains no parameter from 
which to reference data. 


we 
41 Comma ‘," expected 


42 User defined scalars not permitted 


Expressions which are of a user defined enumerated type may not be 
directly read from or written to a text file. 


43 Operand of READ/WRITE not of a valid type 


Any parameter passed to the procedures READ or WRITE (text file 
case) must be compatible with one of the following types: 
- INTEGER 
REAL 
SHORTREAL 
CHAR 
BOOLEAN 
STRING 
packed array[1..n] of CHAR 
where nis a positive integer constant. 


Field length must be integer 


The indicated length qualifier expression in a READ or WRITE state- 
ment is not of type integer. Any length specification within a 
text-file READ/WRITE must be of type integer. 
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45 


48 


51 


52 


Set contains constant member(s) which are out of range 


The indicated set constant contains members which are not valid for 
the set variable to which the constant is being assigned. 


For example, 
var S : set of 10..20; 
begin 
§ := [1,2]; (<== this statement would produce error 45%) 
end; 


This error may also occur when a set constant is being passed as a 
parameter. 


2nd field length applicable only to REAL data 


In the procedure WRITE (text file case), only expressions of type 
REAL are permitted to have two length field qualifications. 


Array reference contains too many subscripts 


An array variable of dimension ‘'n' 15 being subscripted with more 
than 'n' number of subscripts. 


Associated variable of subscript must be of an array type 


An attempt is being made to subscript a variable which was’ not 
declared as an array. 


Expression must be of a simple scalar type 


The indicated expression should be of a simple scalar type within 
the context in which it is being used. 


No max length specified on STRING type - 255 assumed 


A type definition of the form "STRING" does not contain a length 
specification to indicate the maximum length of the string variable. 
255 is the default length. 


Variable must be of a pointer type 


The indicated variable is being used as a pointer; however, the var- 
jable was not declared as being of a pointer type. 


Corresponding variant declaration missing 


Within a call to the procedure NEW or to the function SIZEOF, the 
indicated tag field specification fails to correspond to a variant 
within the associated record variable; or, the associated variable 
was not of a record type. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


Expression must be numeric 


Expressions which are prefixed with a sign ('+' or '-') must be of a 
type that is compatible with INTEGER or REAL. This also applies to 
expressions which are operands of such predefined functions as ABS 
and SQR. 


Expression must be of type real 


The indicated call to ROUND or TRUNC has an argument (actual parame- 
ter) of an incorrect type. The predefined functions TRUNC and ROUND 
require an expression of type REAL as a parameter. 
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Expression must be of type integer 


The indicated expression must be of a type that is compatible with 
INTEGER. 


Parameter type does not match formal parameter 
Within a procedure or function call, an expression or variable is 


being passed as an actual parameter which is of a type that is not 
compatible with the corresponding formal parameter. 


Expression must be a variable 


An erroneous) attempt was made to pass a non-variable as’ an actual 
parameter to a routine which expects a pass-by-Var parameter. 


Number of parameters does not agree 


Within a procedure or function call, the number of parameters being 
passed does not correspond with the number required. 


"(" expected 
Constant expected 


Type specification expected 


At the place indicated, a type definition is expected but is 
missing. 


".,." expected 


Expression's type is incorrect ar incompatible within context 


This error is caused by a number of reasons: 


° A unary or binary operator is being applied to an expression 
which is of a type that is not valid for the operator. 

° Two expressions being joined by a binary operator are of incom- 
patible types. 

° The parameters of the MIN/MAX functions are not of consistent 
types. 

° Members of a set constructor have inconsistent types. 


Subrange lower bound > upper bound 
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Assignment to pointer qualified variant record invalid 


The indicated statement attempts to assign to the whole of a pointer 
qualified record with variant fields. Such an assignment is not 
valid under Pascal/VS. This restriction 38S necessary because the 
pointer qualified record may have been allocated with a size that is 
specific to its active variant. 


Example of violation: 


type 
R = record 
case BOOLEAN of 
TRUE? CC?CHAR}; 
FALSE: €A: ALPHA) 
end; 
var P : aR; 
RR: R; 
begin 
NEWCP, TRUE); 
Pa i= RR C#<===jnvalid assignment) 
end 


67 Real type not valid here 


The indicated expression 18 of type REAL. An expression of this 
type is not valid within the associated context. 


[oe "OF" expected 


69 Tag constant does not match tag field type 


Within a record definition, a variant tag is being defined which is 
of a type that is not compatible with the corresponding tag field 
type. 


Within a call to NEW or SIZEOQF, a tag value is specified which is of 
a type that js not compatible with tha corresponding tag field type 
of an associated record variable. 


70 Duplicate variant field 


Within a record definition, a variant tag is being defined more than 
once. 


71 Not applicable to "PACKED" qualifier 


The indicated type definition was qualified with the word “packed’. 
Such a qualification within the associated context is not valid. 


72 'T" expected 


Array has too many elements 


The length of the indicated array dafinition exceeds the address-— 
ability of the computer. 


']" expected 


Length qualifier applicable only to STRING type 


A length qualifier was applied to a non-STRING type. STRINGS are 
the only types that may have length qualifiers. 


76 File of files not supported 


Pascel/VS Messages 139 


77 


78 


79 


co 


ao eo 
~~ - - 


Illegal reference of function name 


The indicated identifier is the name of a function. It is being 
used in a way that is incorrect. 


Subscript type not compatible with index type 


The indicated subecript expression is not of a type that is compat- 
ible with the declared subscript type for the array. 


Associated variable must be of a record type. 

A variable associated with the indicated statement or expression i5 
required to be of a record type according to context; but such is 
not the case. 

Record field qualifier not defined 

The indicated record field does not exist for the associated record. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at JBM. This is a compiler error. 


Associated variable must be of a pointer or file type 


The indicated arrow qualified variable is not of a pointer or file 
type. 


Set element out of range 


The indicated set member of a set constructor exceeds the allowed 
range for the set. 


Expression must be of a set type 


The indicated expression is required to be of a set type in the con- 
text in which it is being used. 


Must be positive integer constant 

The indicated expression fails to evaluate toa positive integer 
constant, which js required in the context in which it is being 
used. 

LEAVE/CONTINUE not Within loop 


The indicated leave or continue statement fails to reside within a 
loop construct. 


"i=" axpected 


TEXT files may not be updated 


An attempt was made to open a text file for updating. Only record 
files may be updated. 


Label not declared 


The indicated label did not appear in a label declaration. 
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91 Max length of string variable does not match formal parameter 


A string variable is being passed to a procedure "by var" and the 
corresponding formal parameter is declared with an explicit length. 
This error occurs when the declared length of the variable being 
Passed does not match that of the formal parameter. 


Example: 

procedure XYZ(var S: STRING(C100))3; EXTERNAL; 
var T: STRINGC50); 

begin 


XYZ(T);. CHERROR: declared length of T does x) 
(* not match that of parameter S *) 


end ; 


Ee “THEN” expected 


93 Redundant case alternative 


The indicated Case statement label ts equal to a previous” label 
within the same case statement. 


94 Required length expression missing for dynamic string allocation 
A pointer variable declared with the type STRINGPTR' is being allo- 
cated with the NEW procedure, but the required length expression is 
missing. 


95 "UNTIL™ expected 
96 "po" expected 


97 FOR-loop index must be simple local variable 


A for-loop variable must be declared as a simple automatic (var) 
variable, local to the routine in which the for loop resides. The 
indicated for-loop variable did not meet this criteria. 


Le "TO" expected 


99 Label previously defined 


The indicated label identifier was previously defined within the 
associated routine. 


100 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main-~ 
tenance group at IBM. This is a compiler error. 


101 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


102 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 
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103 Expression must be of type BOOLEAN 
The indicated expression which is associated with an if, assert, 
While, or repeat statement is required to represent a condition. 
Conditional expressions are of type BOOLEAN. The indicated expres- 
sion failed to meet this criteria. 

104 Constant out of range 


The indicated constant expression evaluated to a value which is out- 
side the required range of its context. 


105 Identifier was previously declared 


The indicated identifier within a declaration was previously 
declared within the same lexical scope. 


106 Undeclared identifier 
The indicated identifier being referenced was not declared. 
107 Identifier is not in proper context 


The indicated identifier is being used in a way that is not consist- 
ent with how it was declared. 


108 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


109 Case label tag of wrong type 


The value of the indicated case statement label is not of a type 
that is conformable to the case statement indexing expression. 


110 Loop Will never execute 
The indicated for loop will not execute at runtime. The compiler has 
determined that the terminating condition for the loop is uncondi- 
tionally true. 

111 Loop range exceeds range of index 
The indexing variable used for the indicated for loop was declared 
with a subrange that does not include the range indicated by the 
initial and final index values. 


112 *PROGRAM' header missing 


113 Pending comment not terminated 
A comment starting symbol was detected within a pending comment. 


114 Percent "%" statement not found 


A '%" symbol was detected, but with no identifier following. 
115 Percent "%" identifier not recognized 


A identifier following the '%' symbol is not recognized asa valid 
compiler directive. 


116 "ON" or “OFF expected 
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Unrecognizable option in "%CHECK" 


Magnitude of floating point constant too large or too small 


The indicated floating point constant has a magnitude that is out- 
side the range of the IBM/370 double precision representation. The 
largest floating point magnitude that can be represented is 
7.23700557733226E75 

The smallest is 


5.39760534693403E-79 


First parameter of READSTR/WRITESTR must be of type STRING 


String constant requires truncation 


The indicated string constant, which is being assigned to a variable 
or being passed to a routine, requires truncation because of its 
excessive length. Implicit truncation of strings is not permitted. 


Declaration out of order: LABEL,CONST, TYPE, VAR,routine 


This is a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. One or more declara- 
tion constructs are not in the order required by standard Pascal. 
Standard Pascal requires jdentifiers to be declared in the following 
order: 

Labels 

Constants (const) 

Types (type) 

Variables (var) 

Routines (procedure/function) 


"YOTHERNISE" clause without associated CASE statement 


The indicated otherwise statement is not within the context of a 
case statement. 


123 Maximum string length exceeded 


The indicated expression produced a varying length string which 
exceeds 32767 characters in length. 32767 is the maximum allowed 
length for a varying length string. 


124 Construct or operation is not in standard Pascal 


This is a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. The indicated lan- 
guage construct or arithmetic operation is not supported in "stand- 
ard" Pascal, but is a Pascal/VS language extension. 


125 Real to integer conversion not valid 
The indicated expression is of type real, but according to its con- 
text, it 18 required to be of type integer. Implicit real to inte- 
ger conversion is not performed. 
Types not conformable in assignment 


The indicated assignment statement attempts to assign an expression 
of a particular type to a variable of an incompatible type. 


127 File variable assignment not permitted 


The left side of the indicated assignment statement is a variable of 
a file type. Assignment to file variables is not permitted. 
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128 Not compile-time computable 


The indicated expression fails to be a constant expression that can 
be evaluated at compile time. 


129 Assignment to "CONST" parameter invalid 


The indicated variable declared as a formal const parameter within a 
particular routine may not be modified by an assignment. 


Assignment to FOR-loop index invalid 


The indicated variable that is being used as a for loop’ index may 
not be modified by an assignment within the for loop statement. 


131 Passing "CONST" parameter by VAR invalid 


The indicated variable declared as a formal const parameter may not 
be modified by being passed as an actual Var parameter to a routine. 


132 Passing FOR-loop index by VAR invalid 
The indicated variable that is being used as a for loop’ index may 
not be modified by being passed as an actual var parameter to a rou- 
tine. 

133 Refer-back tagfield must not be typed 


The indicated tag field specification within a record definition was 
found to reference a previous field within the record. Such 
refer-back references may not contain a type reference. 


134 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


135 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


136 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


137 Passing packed record field by VAR not valid 


This is a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. The indicated field 
of a packed record is being passed as an actual var parameter to a 
routine. Passing fields of packed records as Var parameters is not 
valid in standard Pascal. 


Passing SPACE component by VAR not valid 


This is €a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. Standard Pascal 
requires that actual var parameters be properly aligned which is not 
necessarily the case with a space component. The indicated parame- 
ter is a component of a space variable which is being passed as a 
var parameter. 


Passing packed array element by VAR not valid 


This is €@a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. The indicated sub- 
scripted variable is being passed as an actual var parameter to a 
routine. The variable being subscripted is a packed array. Passing 
glements of packed arrays as Var parameters is not valid in standard 
ascal. 
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Scalar PACKing does not match corresponding VAR parameter 


The indicated variable that is being passed as a Var parameter is of 
a compatible type, but has a different length than the corresponding 
formal parameter. This was caused by one being packed and the other 
unpacked. 


Symbol not recognizable in standard Pascal 

This is a warning message that may result when the LANGLVLCSTANDARD) 
compiler option is specified. The indicated symbol (Cor operator) is 
not supported in "standard" Pascal. The symbol is part of a con- 
struct which is a Pascal/VS language extension. 

Variable must be an array variable 


The indicated variable is required to be of an array type, but such 
is not the case. 


Offset qualified field not on proper boundary 

The indicated field in a record definition is qualified with an off- 
set which is not consistent with the boundary requirement of the 
field's type. 

Offset qualification value is too small 

The indicated field in a record definition is qualified with an off- 
set which either causes an overlap with a previous field within the 
record or is an illegal (negative) offset. 

Type must be CHAR or PACKED ARRAY OF CHAR 


The indicated expression is required by its context to be of type 
CHAR or packed array[1..n] of CHAR. 


Variables of type POINTER are not permitted 


The special type "POINTER' may only be applied to a formal parameter 
of a routine. 


Identifier was not declared as function 


The indicated identifier is used as though it is a function name, 
but is not declared as such. 


Missing period *.*’ assumed 


Not a valid comparison operation 


The indicated expression performs a comparison operation on two 
entities for which such comparison is not allowed. Except for 
strings, variables of structured types may not be directly compared 
with each other. The only valid comparison operators for sets are 
tat, teot, est, and '>=', 


Entry routines must be at the outermost nesting level 
A routine which is to be called from another module is nested within 


another routine which is not permitted. Such routines must be 
declared at the outermost nesting level. 


Fixed Point overflow or divide-by-zero 


An integer expression consisting of constant operands causes a pro- 
gram error to occur when it is evaluated. 
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Checking errer Will inevitably occur at execution time 


This error indicates that the compiler has detected a condition 
related to a particular construct which will cause an execution time 
error. 


This error may occur at an assignment or at a routine call in which 
Parameters are passed. It indicates that the range of the source 
expression €a scalar} does not overlap the declared range of the 
target. For example, the following assignment would cause this 


error to occur: 


var I: 1..10; 


J: 10..20; 


Io: ars (¥target's range: 1..10; source's range? 11..21 *} 


LBOUND/HBOUND dimension number is invalid for variable 


Low bound of subscript range is too large in magnitude 

The indicated array definition has an illegal subscript range which 
causes addressing code to be osutside the range of the target 
machine's capability. 

The ORD of all SET members must lie within 0..255 


The ordinal value of any valid set member may not be less than @ nor 
greater than 255. 


Length fields not applicable to nmon-TEXT files 


4 non-text file READ or WRITE contains a length qualified parameter. 
Length specifications have no meaning in non-text file I/O, 


STRING variable is smaller than file camponent 

The error occurs when an attempt is made to perform a READ operation 
from a file of STRINGS into a string variable in which truncation is 
possible. The string variable must be declared with at least the 
sama length as the file component. 

Notify compiler maintenance group 


If this error should occur, then notify the Pascal/¥S compiler main- 
tenance group at IBM. This is a compiler error. 


Recursive type reference is not permitted 


The compiler detected a degenerate type declaration of one of the 
following forms: 


I. type X = X; 
II. type X = record 
Fix; 
end ~ 


This SET operation Will always produce the NULL set 


Two disjoint sets are being intersected. The result will always be 
the null set [€ ]. For example, 


var Sl: set of 0..103 
$2: set of 11..20; 
53: set of 0..20; 
begin 
$3 :2 51% $23  (* <25 always produces the NULL set %) 


and ‘ 


146 Pascal/VS Programmer's Guida 


ELSE clause without associated IF statement 


A else symbol was detected that is not part ofan if statement. 
This error often occurs when the preceding then clause of an if 
statement is terminated with a semicolon (3). 


162 Must be an unPACKED array 


The indicated array variable is erroneously declared as packed when 
the context requires it to be unpacked. 


Must be a PACKED array 


The indicated array variable should have been declared as packed, 
but was not. 


164 Unrecognizable procedure/function directive 


The indicated identifier was interpreted as a procedure or function 
directive but was not recognizable. The following are the only 
recognizable directives: 

- FORWARD 
EXTERNAL 
FORTRAN 
MAIN 
REENTRANT 


FORTRAN subroutines may not be passed as parameters 

Only Pascal/VS routines may be passed as parameters; FORTRAN subrou- 
tines may not. 

One way to get around this problem is to define a Pascal/VS proce- 


dure which does nothing more than’ call the FORTRAN subroutine. The 
Pascal/VS procedure would then be passed in place of the FORTRAN 
subroutine. 

166 FORTRAN subroutine parameters may not be passed by value 


All formal parameters of a FORTRAN subroutine must be passed by ref- 
erence: either by var or by const. 


167 FORTRAN functions may return only scalar values 


A FORTRAN function may only return values that are scalars (includ- 
ing floating point). 


168 %INCLUDE member not found in library 


The library member which was to be included into the source program 
could not be found. 


169 Floating point computational error 


The indicated floating point expression causes a program error when 
evaluated. 


170 Data storage exceeds addressability of machine 
The memory required to contain all declared variables within a rou- 
tine or main program exceeds the capacity of the computer; that is, 
it exceeds 16 megabytes. 


171 Only STATIC/DEF variables may be initfalized 


The only class of variables which may be initialized at compile time 
are def and static variables. 
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172 Variable'’s address is not compile-time computable 
The indicated value assignment could not be performed. In order for 
a variable to be initialized at compile-time, its address must be 
compile time computable. 

173 Array structure has too many elements 


The indicated array structure contains more elements than was 
declared for the array type. 


174 Repetition factor applicable to constants only 


Within a array structure, only a_ constant may be qualified with a 
repetition factor; a general expression may not. 


No corresponding record field 


The indicated record structure contains more elements than there are 
fields within the record type. 


176 This identifier is a reserved name 


An attempt was made to declare an identifier which is a reserved 
name. 


177 Numeric .labels must lie within the range 0..9999. 


178 Identifier was previously referenced illegally 


The indicated identifier that was just declared was referenced pre- 
viously within the associated routine. Pascal/VS requires an iden- 
tifier to be declared prior to its use. 


179 Recursive reference within constant declaration 


A constant declaration of one of the following forms was detected: 
const X = X; 
or 
const X = "some expression involving xX" 


Such recursion within a constant declaration is not permitted. 
180 Repetition factor not applicable to record structures 


The indicated record structure contains a component which is quali- 
fied with a repetition factor. Only array structures are permitted 
to have repetition factors. 


181 Label previously referenced from a GOTO invalidly 


The indicated label was previously referenced in a goto statement 
that is not a constituent of the statement sequence in which the 
label is defined. 


Example 


begin 
goto LABEL1; 
for I := 1 to 10 do 
begin 
LABEL1: ALI] := 0; (*<==label was previously referenced invalidly*) 


end; 
end 
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A GOTO may not reference a label within a separate stmt sequence 


The indicated goto statement references a label which was previously 
defined within a statement sequence of which the goto is not a con- 


stituent. Such a reference is not permitted. 
Example 
begin 
for I. := 1 to 10 do 
begin 
LABEL1: ACI] := 0; 
end; 
goto LABEL1; (*<==invalid reference of label *) 
end 


CASE label outside range of indexing expression 


The indicated case label within a Case statement has a value which 
is outside the range of the indexing expression. For example, 


var I: 0..10; 
begin 
case I®2 of (¥range of index is 0..20 *) 
0: 


Trg Q0 Sepia’ 
30: ... (¥<== this label is out of range of index) 


Second operand of MOD operation must be positive integer 


The indicated expression involving the mod operator was found to be 
invalid; the second operand is required to be a positive integer. 


Routine is not defined in standard Pascal 

This warning may be produced when the LANGLVL(STANDARD) compiler 
option is specified. The indicated call statement refers to a pre- 
defined Pascal/VS routine which does not exist in standard Pascal. 
Directive only applies to procedure, not to a function 

The indicated procedure directive ¢"MAIN" or "REENTRANT") is being 
applied to a function declaration. The directive is not supported 
for functions. 

Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


First parameter of REENTRANT procedure must be an integer by var 


The indicated procedure declaration in which the directive "REEN- 
TRANT"™ was specified, failed to comply with the parameter list 
requirement for such a procedure: the first parameter of a “REEN- 
TRANT™ procedure must be a pass-by-reference (specified with the var 
reserved word) integer in which a pointer to the Pascal/VS environ- 
ment is saved between calls. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 
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190 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main-~ 
tenance group at IBM. This is a compiler error. 


Simple constant required 


A constant expression which required compile-time computation was 
found where a simple constant is required. This is often a warning 
message that may be produced when the LANGLVLCSTANDARD) compiler 
option is specified. 


“*Percent directives are not recognized in standard Pascal 


This warning may be produced when the LANGLVLCSTANDARD) compiler 
option is specified. All compiler directives which appear’ in the 
source program with the percent (%) prefix are Pascal/VS extensions 
and are not supported in standard Pascal. 


193 FOR- or WHILE-loop has no statements within its body 

This is a warning message to indicate that a for-statement or 
While-statement loops on an empty statement. Such a case is often 
not the programmer's intent. 

Examples 


While A > 0 do; 
for I := 1 to J do; 


194 PACKED subranges not supported in standard Pascal 


This warning may be produced when the LANGLVLCSTANDARD) compiler 
option is specified. Subrange type definitions may not be “packed"™ 
in standard Pascal. This feature is a Pascal/VS language extension. 


195 Variable is not properly aligned 


The indicated variable is being passed as a Var parameter and the 
compiler has detected that its address may not be properly aligned. 
(For example, passing a full word integer which has an address that 
is not on a word boundary. ) 


On most models of the 370 series, the manipulation of objects which 
are not properly align will result in a penalty in execution speed. 


This warning will be produced even if the variable is just poten- 
tially misaligned (as in the case of a subscripted variable). 


196 Offset qualification value is too large 
The indicated field in a record definition is qualified with an off- 
set which would result in a record that was too large too address. 
197 Object exceeds storage limits 


The specified object would cause the program to require more storage 
than is physically addressable. 
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Recursion detected in "%INCLUDE”™ processing lib(mem) 


Source text which was included from member "mem" in library "lib" by 
means of the a INCLUDE directive contains in itself a %INCLUDE 
directive which directly or indirectly references the same member 


recursively. This error causes immediate termination of the compi- 

lation. 

Example: 

Source program: Member TYPES: 

program EXAMPLE; REC = record 

type NAME: STRINGC(10); 
“include TYPES; AGE : 0..99; 


begin end 
qo %include TYPES; C¥<===ERROR 500%) 
end. 


Too many nesting levels in "%INCLUDE” processing lib(mem) 


A *INCLUDE directive was detected which is nested 8 levels deep 
within a stack of "includes." "Included" source text may not be 
nested beyond 8 levels. This error causes immediate termination of 
the compilation. 


Unable to open "%INCLUDE” library: libname 

The include library named "libname"™ could not be opened. Possible 
causes are that the DDname was not assigned or the DCB attributes of 
the library are not correct. This error causes’ immediate termi- 
nation of the compilation. 

Identifier used in type definition at line nnn is out of context: xxxx 
The identifier 'xxxx' appeared in a pointer type definition of the 
form '->xxxx' at line 'nnn't, but the jdentifier was subsequently 
declared as something other than a type. 

Example: 


type X = ->Y; 


var Y: INTEGER; (% <=== would cause error 600 to be generated *) 


Type identifier referenced at line nnn is undeclared: xxxx 

The identifier 'xxxx' appeared in a pointer type definition of the 
form '->xxxx’ at line 'nnn', but the identifier was not subsequently 
declared. 

Label xxxx was declared and/or referenced but was not defined 


The label named 'xxxx' was declared and/or referenced from within 
the associated routine, but was not ever defined. 


procedure/function xxxx was forwarded but not resolved 
The procedure or function named 'xxxx' was declared with the direc- 


tive 'FORWARD', but the body of the routine was not subsequently 
declared. 
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No. 


AMPOOO1S 


AMPTOOLE 


AMPOO02S 


AMPTOO2E 


AMPTOOSE 


AMPTOOSE 


Message and Explanation 


Routine "name™ is too large to compile at stmt n 


The indicated routine has too many statements to compile; a 
fixed-length table of the compiler has overflowed. The last 
statement that wWas successfully processed was statement "n_"” 
The routine should be divided into two or more separate rou- 
tines. 


Inevitable NIL pointer error will occur 


The code optimizer of the compiler has determined that a nil 
pointer checking error will inevitably occur at execution time 
at the specified routine and statement. Example: 


begin ; 
Poz= nil 

ge Se ERNST ase C¥<C=S5AMPTOQLE - inevitable error) 

end; 


Notify Pascal/¥S Support - Optimizer error 


An optimizer error occured at statement "nnn" of routine 
Hooooood" in module "mmmmmmmm". A message will be produced 
describing the Kind of error. Notify Pascal/V¥S support. 


Inevitable high bound error will occur 


The code optimizer of the compiler has determined that a high 
bound checking error will inevitably occur at exacution time at 
the specified routine and statement. Example: 


var I 


1..10; 


Ce 


INTEGER; 
begin 
Jor= 11; 
Iot= J3 C¥<==-AMPTOQ2E - inevitable error) 


end; 


Inevitable low bound error will occur 


The code optimizer of the compiler has determined that a low 
bound checking error will inevitably occur at execution time at 
the specified routine and statement. Example: 


var Io: 1..10; 
INTEGER; 


L 


begin 
J 3 
I 

end; 


Wel 
nwo 


wh we 


C¥<===AMPTOQ3SE - inevitable error) 


Function routine does not return a value 


The code optimizer of the compiler has determined that the spe- 


ecified function routine does not return a result. Example: 
function F(var I: INTEGER): INTEGER; 
begin 
READLNCI); 
end; CH<===AMPTO05 function did not return a result) 
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AMPTOOGE 


AMPT 7008 


AMPT7011 


AMPT702S 


AMPT 7031 


AMPT 7041 


AMPT7051 


AMPL9998S 


AMPO999S 


AMPT999S 


Expression is too complicated at stmt nnn of routine xxxxxxxx 


The expression in statement “nnn" of routine “"xxxxxxxx"™ is too 
complex to compile and should be broken up into multiple state- 
ments. If the indicated statement contains a relatively simple 
expression, then the Pascal/VS support group should be 
notified. 


Routine “name” contains too many statements. Max =n 
The statement table being generated overflowed in the specified 


routine. The routine should be divided into two or more rou- 
tines. 


Record type contains too many fields 


The DEBUG compiler option was specified and a record type defi- 
nition was compiled that contains too many fields tc be accom- 
modated in the debugger type table. If this error should 
occur, the resulting code may not work properly when the inter- 
active debugger is enabled. 


Routine “name™ exceeds 8K limit at stmt n 


The specified routine caused more than 8192 bytes of code to he 
generated starting at statement number "n.* Since Pascal/V5 
only reserves two base registers to address code, 8192 bytes is 
the limit. The indicated routine should be divided into two or 
more separate routines. 


Field name space pool overflowed 


The DEBUG compiler option was specified and a large number of 
record type definitions were compiled. The debugger table 
which contains the record field names overflowed. If this 
error should occur, the resulting code may not work properly 
when the interactive dabugger is enabled. 


Type table overflow. Debug is disabled 


The module being compiled with the DEBUG option contains more 
than 256 unique data types. The type table being generated for 
the interactive debugger may contain no more than 256 entries. 
The interactive debugger may not be used on this module. 


Symbol name space pool overflowed 


The DEBUG compiler option was specified and a large number of 
symbols were compiled. The debugger table which contains sym- 
bol names overflowed. If this error should occur, the result- 
ing code may not work properly when the interactive debugger is 
enabled. 


compiler error notify Pascal/VS Support 


An error was detected in the first pass of the compiler. 
this error should occur, please notify Pascal/V5S support 
IBM. 


Notify Pascal/VS Support - Optimizer Error 

An error was detected in the second pass of the compiler. If 
this error should occur, please notify Pascal/VS support at 
IBM. 

Notify Pascal’Vs Support - Translation error 

An error was detected in the third pass of the compiler. If 


this error should occur, please notify Pascal/V5 support at 
IBM. 


i 
An 


17.2 EXECUTION TIME MESSAGES 


Na. 


AMPXO1LLE 


AMPXO12ZE 


AMPXO13E 


AMPXO14E 


AMPXO15E 


AMPXO16E 


AMPXOL17E 


AMPXO18E 


AMPXO19E 


AMPX020E 


Message and Explanation 


Operation exception 


An operation exception occurred in the program. The error is 
probably in an assembly language routine linked with your Pas- 
cal program or due to a ‘Wild’ assignment through an uninitial- 
ized pointer. 


Privileged exception 


A privileged exception occurred in the program. The error is 
probably in an assembly language routine linked with your Pas- 
cal program. 


Execute exception 


An execute exception occurred in the program. The error is 
prebably in an assembly language routine linked with your Pas- 
cal program. 


Protection exception 


A&A protection exception occurred jn the program. The error is 
probably due to a ‘wild’ assignment through an uninitialized 
pointer, or to an array assignment with a bad subscript Cwith 
checking off). 


Addressing exception 


An addressing exception occurred in the program. The error is 
Probably due to a ‘wild’ assignment through an uninitialized 
pointer, or to an array assignment with a bad subscript (with 
checking off). 


Specification exception 

A specification exception occurred in the program. The error is 
probably in an assembly language routine linked with your Pas- 
cal program. 

Data exception 


A data exception occurred jn the program. The error is probably 
in a non-Pascal routine linked with a Pascal program. 


Fixed point overflow exception 


A fixed-point overflow exception occurred jin the program. The 
error is probably due to an addition, subtraction, or multipli- 
cation that resulted in an integer with a magnitude which 
exceeds MAXINT. 


Fixed point divide by zero exception 
A fixed point divide by zero exception occurred in the program. 


The error is due to a diV operation in which the second operand 
Cthe divisor) has the value zero. 


Decimal overflow exception 


4 decimal overflow exception occurred in the program. The error 
is probably occurred in a non-Pascal routine linked to the Pas- 
cal program. 
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») 


AMPXOZIE 


AMPX022E 


AMPX023E 


AMPX0246E 


AMPX025E 


AMPXO2Z6E 


AMPXOZTE 


Decimal divide by zero exception 


A decimal divide by zero exception occurred in the program. 
The error probably occurred in a non-Pascal routine linked to 
the Pascal program. 


Exponent overflow exception 


An exponent overflow exception occurred in the program. The 
error is probably due toa floating point multiplication or 
division which produces a result with a magnitude greater than 
7.23700557733226E75. 


Exponent underflow exception 


An exponent underflow exception occurred in the program. The 
error is probably due to a floating point multiplication or 
division which produces a result with a magnitude less than 
5.39760534693403E-79. 


Significance exception 

This exception is not intercepted by the Pascal/VS run time 
environment. If it should occur, then the Pascal/VS run time 
environment may have been locally modified. Contact your local 
system support. 

Floating point divide by zero exception 


A floating point divide by zero exception occurred in the pro- 
gram. The error is caused by an attempt to divide by zero. 


Segment translation exception 


This 15 a system error, run the program again and if the 
persists contact Pascal/VS Development for assistance. 


Page translation exception 


This is a system error, run the program again and if the 
persists contact Pascal/VS Development for assistance. 


Translation specification exception 


This is a system error, run the program again and if the 
persists contact Pascal/VS Development for assistance. 


Special operation exception 


This is a system error, run the program again and if the 
persists contact Pascal/VS Development for assistance. 


Terminal attention exception 

An attention was signaled from the users terminal. 

LoW bound checking error 

Either the value of an array subscript, or the value being 
assigned to a subrange type variable is less than the minimum 
allowed for the subscript or subrange. This error may also 
result if the mod operation is attempted for which the second 
operand (the divisor) is less than or equal to zero. 

High bound checking error 

Either the value of an array subscript, or the value being 


assigned to a subrange type variable is greater than the maxi- 
mum allowed for the subscript or subrange. 
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AMPXO33E 


AMPXO34E 


AMPX035E 


AMPX036E 


AMPX037E 


AMPX038E 


AMPX039E 


AMPX040S 


AMPX041S 


AMPX042E 


AMPX043E 


AMPX044E 


AMPX04SE 


AMPX046E 


Nil pointer checking error 


An attempt was made to reference a dynamic variable from a 
pointer which has the value nil. 


Case label checking error 


The expression of a case~statement has a value other than any 
of the specified case labels and there is no otherwise clause. 


Function value checking error 


A function routine returned to its invoker without being 
assigned a result. 


Assertion failure checking error 


The expression of an assert statement computed to the value 
FALSE. 


String subscript out of bounds checking error 


The subscript ona STRING was not in the range 0..LENGTHCs), 
where s is the STRING being subscripted. 


Error 38 not assigned 
This error number has not been assigned a meaning. 
String truncation checking error 
An assignment into a STRING variable could not’ be performed 
because the length of the source string is longer than the max- 
imum length of the destination string. 
Notify compiler maintenance group 
If this error should occur, then notify the Pascal/VS compiler 
maintenance group at IBM. This is a run-time environment 
error. 

a 
File could not be opened: DDNAME 
An error occurred when an attempt was made to open the file 
with the indicated DDname. The most probable cause of this 
error is amissing DDname definition. Under CMS, this error 
will occur when attempting to open a file that does not have a 
record format of 'F' or ‘'V". 
Lrecl size too small for file DDNAME 


The logical record length of the file with the indicated DDNAME 
is not large enough to contain a single file component. 


File is not open for output: DDNAME 

An output cperation was attempted on a file open for input. 
File is not open for input: DDNAME 

An input operation was attempted on a file open for output. 
Logical record is too small in input file 

A record file is being read which consists of varying length 
records CRECFM=V); and a logical record was read which is too 
short to represent a valid record in the file. 


Data larger than lrecl for file 


The logical record length of a file is too small to contain the 
file's component. 
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AMPX047E 


AMPX048E 


AMPX049E 


AMPXOSOE 


AMPXOSIE 


AMPX052E 


AMPXO53E 


AMPX054E 


AMPXOSSE 


AMPXO56E 


AMPXO57E 


AMPX0581 


Invalid Input/Output option: xxxxx... 


The options string passed to the procedure contains an incor- 
rect or invalid option. 


Missing member in file: member library 


The indicated member could not be found in the partitioned data 
set. 


Floating point overflow/underflow 


The floating point number read by procedure READ was either too 
large or too small to be represented within the machine. 


BLKSIZE exceeds 32760 in file DDNAME 


A block size was specified that exceeds 32760 which is the max- 
imum length of a block. 


LRECL > BLKSIZE-4 in V format file: DDNAME 


The logical record size was too large to permit at least one 
record to be fit in a block. 


BLKSIZE not integer multiple of LRECL in DDNAME 


The specified block size for a fixed-length record file is not 
an integer multiple of logical records. 


Component length of file exceeds 32760 in DDNAME 


A single element must fit in one logical record, therefore its 
length is restricted to 32760 bytes. 


GET or READ called after end-of-fjle in DDNAME 
An attempt was made to advance the file beyond the end-of-file. 
Integer READ operation failed for file DDNAME 
An attempt was made to read an integer froma text file, but 


either the end-of-file occurred, or an unrecognizable character 
was detected where the integer should have been. 


Overfilow/underflow detected in integer READ: DDNAME 


An attempt was made to read an integer which has a value that 
does not lie within the range -2147483648. .2147483647. 


Invalid run time option: 

An invalid option was specified when invoking a Pascal/VS pro- 
gram. A runtime option is specified preceding a slash '/' when 
invoking the program. 


OPEN and INTERACTIVE are no longer supported, use READ/WRITE 
The procedures OPEN and INTERACTIVE are not supported in 


Release 2.0 and up. The Pascal/VS Programmer's Guide 
$H20-6162-1 and the Pascal/VS Reference Manual SH20-6168-1 
describes the equivalent operations. 
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AMPXO59E 


AMPXO60E 


AMPXO61E 


AMPX062E 


AMPXO63E 


AMPXO6GE 


AMPXO65E 


AMPXO66E 


AMNPXO67E 


AMPXO068S 


AMPX069S 


Text exceeds logical record length in file "name" 


A line of data 15 being Written to the text file whose DDname 
is "name" and the line exceeded the logical record length of 
the file. As a recovery, the line is terminated at the end of 
the logical record and the remaining text of the line is placed 
in the next logical record. 


For each file being written, this error will be diagnosed only 
on the first occurrence; subsequent violations will not be 
diagnosed, 

Operand to RELEASE does not correspond to MARK 


The parameter passed to RELEASE did not have the value returned 
by a call to MARK, 


Operand to DISPOSE not allocated with NEW 


A DISPOSE operation was attempted for a pointer which did not 
have a valid value as would have been returned by NEW. 


Real READ operation failed for file DDNAME 

An attempt was made to read anreal froma text file, but 
either the end-of-file occurred, or an unrecognizable character 
was detected where the real should have been. 

Operand to DISPOSE already deallocated 

An attempt was made to perform a DISPOSE operation on a pointer 
which referenced heap storage which had been previously 
released. 


Insufficient space to do NEW 


There was not enough storage available to perform the NEW pro- 


cedure. You should execute the program in a larger region (05) 
or in alarger virtual machine (CMS). Also, you may not be 
calling DISPOSE for storage you no longer need. 

: i 7 
Storage has been incorrectly assigned prior to DISPOSE 
The pointer being disposed of was used incorrectly; namely, the 
pointer caused the heap to be modified beyond the size of the 
dynamic variable. This could happen if the dynamic variable 
was a record that was allocated by specifying tag values, and 
then was later used in an assignment with a different variant. 

4 


Operand to DISPOSE is NIL or undefined. 


The operand is not valid for DISPOSE. 


Heap incorrect dye to previous invalid assignment using a pointer 


The heap has been damaged. The cause of the damage was proba- 
bly due to a pointer being used incorrectly. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/V¥5 compiler 
Maintenance group at IBM. This i5 a run-time environment 
error. 


Notify compiler maintenance group 
If this error should occur, then notify the Pascal/VS compiler 


maintenance group at IBM. This is a runctime environment 
error. 
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7) 


AMPXO70E 


AMPXO71E 


AMPXO72E 


AMPXO73E 


AMPXO7G4E 


AMPXO75E 


AMPXO76E 


AMPXO77E 


AMPXO78E 


AMPXO79E 


AMPX0805 


AMPXO81E 


AMPXO82E 


LN: argument <= 0.0 


The natural logarithm function CLN) was called with a 0 or neg- 
ative argument. 


SQRT! argument < 0,0, zero returned as result 


The square root function (S@RT) was called with a negative 
argument. 


EXP: argument too large, exceeds 174.67309 

The argument of the EXP function is too large; the rasult of 
the call exceeds the largest real number that can be repres- 
ented: 7.237et75. 

RANDOM: seed is out of range 

The function RANDOM was called with an argument which is either 
negative or greater than 1048575 {which is the allowed 
maximum) . 


SIN/COS: argument too large, exceeds (PI/2)}*%*50 


A call to SIN or €O5 was made with an argument that is toa 
large for an accurate result to be computed. 


SEEK called for a file not opened for DIRECT access 


SEEK: bad relative record address 


The record number in an invocation of SEEK has an invalid 
value. 


Direct access file does not have fixed unblocked records: DDNAME 


An attempt Was made to perform direct access (relative record) 
operations on a file that was either not fixed or not 
unblocked. The required record format for a file to be manipu- 
lated with SEEK is RECFM=F. 


Target string filled to maximum length in WRITESTR call 
The target STRING (first parameter) in a call to WRITESTR was 


filled to capacity before the data being assigned into the 
STRING was exhausted. 


Source string exhausted in READSTR call 


Prior to reading all data from the the Source string (first 
parameter), the end of the string was encountered. 


Notify compiler maintenance group 

If this error should occur, then notify the Pascal/V¥5 compiler 
maintenance group at IBM. This is a run-time environment 
error. 


LPAD: PADDING exceeds maximum length of string 


The specified pad length (second operand) exceeds the maximum 
allowed length of the target string (first parameter), 


DELETE: Length parameter less than zero 
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AMPXO83E 


AMPXO084E 


AMPXO8SE 


AMPXO86E 


DELETE: starting index is less than 1 


DELETE: substring not contained Within source string 


Set operation out of bounds 


An attempt to perform a set operation in which the resulting 
set contained members which are outside the range of a target 
set. This can occur in a set assignment in which the source 
set contains members which are not valid for the declared type 
of the target set. 


SUBSTR: Length parameter less than zero 


AMPXO87E SUBSTR: starting index is lass than 1 


AMPXO88E SUBSTR: substring not contained Within source string 


AMPXO89E RPAD: padding exceeds maximum length of string 


The specified pad length (second operand) exceeds the maximum 
allowed length of the target string (first parameter). 


AMPX200I1 The module must be linked with DEBUG for debugger features 
An attempt was made to invoke the interactive debugger ona 
module that was not linked with the debugger library. 
AMPX201I The module must be linked with DEBUG for symbolic dump 
An execution time error occurred and a symbolic dump of the 
offending routine was attempted, but the module in which the 
routine is lhecated was not compiled with the DEBUG option. 
AMPX2031 
An execution time error has occurred while ONERRGR was execut-— 
ing. OGNERROR is a user provided procedure to diagnose exe- 
cution errors and determine the correct course of action. 


AMPX9995 NOTIFY PASCAL/VS SUPPORT: RECURSIVE ERROR IN RUNTIME ENVIRONMENT 
A second error was encountered while Pascal/V5S was recovering 
from the first error. The program is terminated because any 
further processing would probably result in a CPU bound loop. 
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Error occurred While executing CNERROR routine 


You should notify Pascal/V5 Davelopment if this error persists. 
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17.3 MESSAGES FROM DEBUG 


No. Message and Explanation 
AMPDS00 Current module not compiled with Debug option 
AMPDS01 No statement xx in 
AMPD502 There is no routine named * in module 
AMPD503 Invalid qualification specification: 
AMPD504 Missing qualification specification 
AMPD505 Module name must be specified 
AMPD506 Breakpoint is already set 
AMPD507 Maximum number of breakpoints have been set 
AMPD508 Specified breakpoint does not exist 
AMPD509 is an automatic variable local to a non-active routine 
AMPD510 Field qualified variable is not a record 
AMPD511 is not a valid record field 
AMPD512 Subscripted variable is not an array 
AMPD513 Array subscript is not a scalar 
AMPD514 Invalid symbol: 
AMPD515 Array subscript is out of bounds: 
AMPD516 Missing symbol: 
AMPD517 Associated variable is not a pointer 
AMPD518 Pointer variable does not contain valid address 
AMPD519 not found in symbol table 
AMPD520 Equate substitution is in infinite recursion 
AMPD521 EQUATE expansion causes command truncation(exceeds 255 characters 
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AMPDS22 You ara not in CMS, command not valid 
AMPDS23 Debug command not recognized: 

AMPD524 Invalid character in hexadecimal string: 
AMPDS25 Invalid hexadecimal string 

AMPD526 Routine is not activa 


AMPD527 Qualification set to module 


AMPDS28 The word "EQUATE" may not be redefined 


AMPD5S29 Maximum number of EQUATE''s have been set 
AMPD530 There are no EQUATE''s currently set 


AMPDS31 Statement table missing 


Trace requires GOSTMT option 


AMPD533 There are no active variables 


AMPD534 Routine is not active: 
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17,4 MESSAGES FROM PASCALVS EXEC 


The fellewing messages are given by the They are shown below with their associ- 
PASCALVS EXEC of CMS to indicate the ated return codes. 
status of the compiler invocation. 


Message and Explanation 


File name is missing 


The exec was invoked without specifying a file name. 


"fn" PASCAL 


Unable to find 


The specified file name could not be found. 


Unable to find the ‘name* MACLIB 
The specified maclib file could not be found. 
32 More than & maclibs specified 


The maximum number of MACLIBS that may be specified when invoking 
the PASCALVS EXEC is eight. 
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APPENDIXES 


. Command Syntax Notation” on page 167 


Installation Instructions™ on page 169 


. Additional Library Procedures and Funetions™ on page 179 


VM/PC PascalvVS User's Guide™ on page 185 
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Thea syntax notation used to illustrate 
T5S0 commands is explained in the manual 
T50 Command Lanquage Reference 
(GC28-0646). The notation used to 
illustrate CMS commands is explained in 
the manual VM/370: CMS Command and Mac- 


ro Reference (GC20-1818). 


Briefly, the conventions used by both 
notations are as follows. 


* Items in brackets [ ] are optional. 
If more than one item appears in 
brackets, then no more than one of 
them may be specified; they are 
mutually exclusive. 
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APPENDIX A. COMMAND SYNTAX NOTATION 


Items in capital letters are keay- 
words. The command name and key- 
words must be spelled as shown. 


Items in lowercase letters must be 
replaced by appropriate names or 
values. 


Items which are underlined repre- 
sent defaults. 


The special characters ' ( ) * must 
be included where shown. 


on 
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This section describes how to install 
Pascal/V¥S under OS/V¥S2 and CMS-VM/370 
from the distribution tape. 


All VS2 partitioned data sets Cother 
than the compiler source) were stored 
on the tape by using the IEBCOPY utili- 
ty program. VS2 sequential data sets 
wera stored by using the TEBGENER util- 
ity program. 


The CMS version of the package i5 
located at file 12 on the tape. It was 
stored by using the TAPE DUMP command. 


The source of the compiler was stored 
using the utility pregram IEBUPDTE. 


The files on the distribution tape con- 
tain the following data sets. 


File 1: INSTALL.CNTL A sample of the 
job control language CJCL3 
required to install Pascal/V5S 


under GS/V¥S2 (MVS). 


File 2: LOADSRC.CNTL A sample of the 
job control language CJCL} 
required te load the Pascal/ys 
source from the distribution 
tapa. 


File 3: PASCALVS.CONTENTS A sequential 
data set which lists the contents 
of the Pascal/V5S package. 


File 4: PASCALVS.LINKLIB A partitioned 
data set which contains the mod- 
ulas of the compiler. 


File 5: PASCALVS.LOAD A partitioned 
data set which contains the Pas- 
cal/V5S run time library. 


File 6: PASDEBUG.LOAD A partitioned 
data set Which contains the Pas- 
cal/V5S debug library. 


File 7: PASCALVS.MACLIB The 
include library. 


standard 


File 8: PASCALVS.CLIST A partitioned 
data set containing two clists: 
PASCALVS and PASCMOD. 


File 9: PASCALVS.PROCLIB A partitioned 
data set which contains the JCL 
cataloged procedures for running 
the compiler as a batch jeb under 
MVS. 


File 10: SAMPLE.PASCAL A partitioned 
data seat centaining sample pro- 
grams. 


File 11: PASCALYS.MESSAGES A sequen~ 
tial data set which contains the 
compiler messages, 


File 1l2: cmMS dump of the 
Pascal/VS package: 


entire 


APPENDIX B. INSTALLATION INSTRUCTIONS 


PASCALVS CONTENTS A listing of 
the contents of the 
Pascal/V5 package. 


~ PASCALS MODULE A program that 
issues all necessary FILEDEF 
commands to CMS prior to 
invoking the compiler. 


- PASCALL MODULE The first pass 
of the compiler. 


- PASCALO MODULE The second pass 
of the compiler. 


- PASCALT MODULE The third pass 
of the compiler. 


= PASCALL TXTLIB the txtlib from 
which PASCALL MODULE was 
generated. 


- PASCALO TXTLIB the txtlio from 
which PASCALO MODULE was 
generated. 


- PASCALT TXTLIB the txtlib from 


which PASCALT MODULE was 
generated. 

- PASCALVS TXTLIB The Pascal/V§ 
run time library. 

- PASDEBUG TXTLIB Tha PascalsvV5 
debug library. 

- PASCALVS MACLIB The standard 


4#INCLUDE library. 


- PASCALVS EXEC CMS EXEC 
invokes the compiler 


which 


- PASCALVS CMSHELP Help file that 
is accessed when "PASCALVS 
7" is invoked. 


- PASCMOD EXEC cMS EXEC which 
creates a load module from a 
compiled Pascal/VS program. 


- PASCALVS MESSAGES List 
compiler messages. 


of the 


- LOADSRC EXEC An EXEC which will 
load the source of the com- 
prler from the tape. 


= SAMPLE PASCAL A sample program. 


- PRIMGEN PASCAL A 
program. 


sample 


File 13: PASCALL.PASCAL The source of 
the first pass of the compiler. 


File 14: PASCALO.PASCAL The source of 
the second pass of the compiler. 


Appendix 8. Installation Instructions 169 


File 


File 


File 


File 


File 


File 


File 


File 


File 


15: PASCALT.PASCAL The source of 
the third pass of the compiler. 


16: PASCALD.PASCAL The source of 
the interactive debugger. 


17: PASCALX.PASCAL The source of 
the runtime library routines. 


18: PASCALX.ASM The source of the 
operating system interface rou- 
tines. 


19: MACLIBL.PASCAL Include 
library for first pass 
compiler. 


of the 


20: MACLIBO.PASCAL Include 
library for second pass of the 
compiler. 

21: MACLIBT.PASCAL Include 
library for third pass of the 
compiler. 

22: MACLIBD.PASCAL Include 
library for interactive 
debugger. 


23: MACLIBX.PASCAL Include 
library for runtime routines. 


B.1 INSTALLING PASCAL/VS UNDER CMS 


To install Pascal/VS under CMS perform 
the following: 


1. 


170 


Have the distribution tape mounted 
at address 181. 


Link to the mini-disk 
mode) where the compiler 
stored. This is done with the CP 
LINK command. The mini-disk must 
have at least 2300 blocks of free 
storage!®. 


Cin write 
is to be 


Access this disk with the ACCESS 


command. 


800 byte blocks are assumed. 
a 3330 disk. 


This amount 


4. Execute tha two 


commands: 


TAPE FSF 1i 
TAPE LOAD ® ® m 


following 


where "m™ is the single letter file 
mode of the disk that was accessed in 
the previous step. 


B.1,1 Regenerating Compiler Modules 


To fix bugs that are discovered in the 
compiler often requires modules of the 
compiler to be recompiled.’??% To replace 
a compiled module (a text deck) of the 
compiler, execute the following two 
commands: 


TXTLIB DEL PASCALx AMPxccce 
TXTLIB ADD PASCALx AMPxcecc 


where "PASCALx”™ is either PASCALL, PAS- 
CALO, or PASCALT, depending on which 
phase of the compiler is being fixed; 
"AMPxcccc"” is the module name being 
replaced. 


After the appropriate text modules have 
been replaced, then the associated load 
module will need to be regenerated. To 
regenerate PASCALL MODULE, execute the 
following: 

PASCMOD AMPLMAIN PASCALL CNAME PASCALL 


To regenerate PASCALO MODULE, execute 
the following: 


PASCMOD AMPOMAIN PASCALO (NAME PASCALO 


To regenerate PASCALT MODULE, execute 
the following: 


PASCMOD AMPTMAIN PASCALT CNAME PASCALT 


is equivalent to 9 cylinders on 


The Pascal/VS compiler is written entirely in Pascal/VS and is self-compi- 


ling. 


Pascal/VS Programmer's Guide 


“/JOBNAME JOB »-REGION=50K 
“/STEP1 EXEC PGM=IEBGENER 
//SYSPRINT DD SYSOUT=x 
“/SYSUT1 DD DSN=PASCALVS.INSTALL.CNTL, 
VOL =SER=7TAPEVOL, 
UNIT=TAPE,LABEL=(1,NL), 
DCB=(LRECL=80,RECFM=FB, BLKSIZE=3120,DEN=3), 


DISP=OLD 


DSN=XXXXXXXX, INSTALL. CNTL, DISP=(NEW,CATLG), 
DCB=C(LRECL=-80,RECFM=FB, BLKSIZE=-31290), 


UNIT=3330,VOL=SER=DESKVOL, 


SPACE=CTRK,(1,1)) 
“/SYSIN DD DUMMY 


Figure 97. Sample JCL to retrieve first file of distribution tape 


B.2@ INSTALLING PASCAL/VS UNDER VS2 


This section explains how to install 
Pascal/VS under an O5/VS2 system. 


B.2.1 Loading Files from Distribution 
Tape 


A sample of the job control language 
required to install Pascal/V5 under V52 
(MVS) is stored as the first file of 
the distribution tape. To retrieve 
this data set, the utility program IEB- 
GENER must be used. The JCL shown in 
Figure 97 may serve as a model job to 
retrieve this file. DD operands which 
are highlighted will require modi fica- 
tion to suit your installation 
requirements, The serial number of the 
distribution tape must be placed where 
the name “JAPEVOL™" appears in the DD 
card named SYSUT1. 


The data set name (DSN=) in the DD card 
named SYSUT2 is arbitrary. It is the 
name of the data set where the first 
file on the tape is to be stored. The 
appropriate UNIT and volume serial num- 
ber for disk storage must be specified 
for DD SYSUT2. 


Figure 98 on page 172, Figure 99 on 
page 173, and Figure 100 on page 174 
contain a listing of the first file of 
the distribution tape. The following 
modifications are required prior to 
submitting this job. 


e The name "TAPEVOL™ must be replaced 
with the volume serial number of 
the distribution tape in the DD 
eres named SYSUT1 in job step 


The UNIT specification for tapes 
has been given the generic name of 
STAPE"; this should be changed to 
the appropriate generic at your 
installation. 


The UNIT specification for disk 
storage has been specified as 
"3330"; this should be changed to 
the appropriate specification at 
your installation. 


The disk yolume on which Pascal/V¥S 
is to be installed must be speci- 
fied where indicated ("DISKVOL") 
in the following DD statements: 
in STEPL: SYSUT2 
in STEP2: SYSUT2 
in STEP3: DS4¢, DSS, DS6, 
DS7, DS&, DS9, 
D519 
in STEP4: SYSUT2 


The DD statements named SYSUT3 and 
SYSUT4 in job step STEP3 represent 
temporary work storage. The gener- 
ic name "SYSDA" is used as a UNIT 
specification; this should be 
changed to the appropriate generic 
at your installation. 


The tape density is specified with- 
in the DEN suboperand of the DCB 
attributes. In the sample job, DEN 
is set to 3 which indicates a tape 
density of 1600 BPI. If your dis- 
tribution tape is at some other 
density, then the DEN operands 
should be changed accordingly. 


The high level qualifier of data 
set names that are to be cataloged 
should be modified to follow 
installation conventions. (The 
examples in this manual assume a 
high level qualifier of "SYSi", ) 
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“7INSTALL JOB ,REGION=128K 

S7* 

cf FILE 2 -- SOURCE INSTALLATION JOB 

o/h 

“/STEPL EXEC PGM=IEBGENER 

“/SYSPRINT DD SYSOUT=x 

“/SYSUT1 DD DSN=LOADSRC.CNTL, 
VOL=C,RETAIN, SER=TAPEVOL), 
UNIT=TAPE,LABEL=(2,NL), 
DCB=(LRECL=80,RECFM-FB,BLKSIZE=-3120,DEN=3), 
DISP=C(OLD,PASS) 
DSN-SYS1.LOADSRC.CNTL,DISP=(NEW,CATLG), 
DCB=C(LRECL=80,RECFM=FB,BLKSIZE=3120), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=(3120,¢61,1)) 

f/SYSIN DD DUMMY 

47K 

ffm FILE 3 —- PASCALVS CONTENTS 

Sf 

“/3TEP2 EXEC PGM=ITEBGENER 

//SYSPRINT DD SYSOUT= 

“/SYSUT1 DD DSN=PASCALYVS.CONTENTS, 
VOL=REF=*%.STEP1.SYSUTI, 
UNIT=TAPE,LABEL=C(3,NL), 
DCB=(LRECL=80,RECFM=VB,BLKSIZE=3120,DEN=3), 
DISP=(OLD,PASS) 
DSN=SYS1,PASCALVS.CONTENTS,DISP=CNEW,CATLG), 
DCB=(LRECL=80,RECFM=VB,BLKSIZE=3120), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=€3120,(1,1)) 

“/SYSIN DD DUMMY 

f/%* 

//¥* FILE ~- PASCALVS.LINKLIB 

f/* FILE -- PASCALVS.LOAD 

“/* FILE -- PASDEBUG.LOAD 

f/R FILE —- PASCALVS.MACLIB 

47" FILE -- PASCALYVS.CLIST 

“/* FILE -- PASCALYS.PROCLIB 

47* FILE ~~ SAMPLE.PASCAL 

LSA 

“/STEP3 EXEC PGM=ITEBCOPY 

4/7054 DD DSN=SYS1.PASCALVS.LINKLIB,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=13030,RECFM=U,DSORG=PQO), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=CTRK,(€50,10,3)) 
DSN=PASCALVS-.LINKLIB, 
VOL=REF=*%.STEP1.SYSUT1, 
UNIT=TAPE,LABEL=(4,NL), 
DCB=BLKSIZE=13030, 
DISP=COLD,PASS) 
DSN=SYS].PASCALVS.LOAD, DISP=(NEW,CATLG), 
DCB=C(BLKSIZE=13030,RECFM=-U,DSORG=PO), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=CTRK, (€14,10,36)) 
DSN=PASCALVS.LOAD, 
VOL=REF=*,.STEP1.SYSUTI, 
DCB=BLKSIZE=13030, 
UNIT=TAPE,LABEL=(5,NL), 
DISP=(OLD,PASS) 
DSN=SYS1.PASDEBUG.LOAD, DEISP=(NEW, CATLG), 
DCB=(BLKSIZE=13030,RECFM-U,DSORG=PQ), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=CTRK,(€9,1,7)) 


Figure 98. Sample installation jab: (continued in Figure 99 on page 173) 
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//FILE6 


ff 


“7SYSPR 
AASYSUT 
“/SYSUT 
//5YSIN 
corPY 
coPyY 
COPY 
coPY 
COPY 
cOPY 
COPY 
/* 


Figure 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


INT 


3 
4 


DSN=PASDEBUG.LOAD, 

VOL=REF=*%,STEP1,.SYSUT1, 

DCB=BLKSIZE=13030, 

UNIT=TAPE,LABEL=(6,NL),> 

DISP=C(OLD,PASS) 
DSN=SYS1,.PASCALVS.MACLIB,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=FB,LRECL=80,DSO0ORG=P0), 
UNIT=3330,VOL=SER=DISKVOL, 

SPACE=CTRK,(4,1,3)) 

DSN=PASCALVS.MACLIB, 

VOL=REF=%.STEP1.SYSUT1, 
UNIT=TAPE,LABEL=(7,NL), 

DCB=BLKSIZE=3120, 

DISP=(OLD,PASS) 
DSN=SYS1,PASCALVS.CLIST,DISP=(NEW, CATLG), 
DCB=CBLKSIZE=3120,RECFM=VB,LRECL=255,DS0RG=PO0), 
UNIT=3330,VOL=SER=DISKVOL, 

SPACE=CTRK,(€3,1,5)) 

DSN=PASCALVS.CLIS5T, 

VOL=REF=%.STEP1.SYSUT1, 

DCB=BLKSIZE=3120, 

UNIT=TAPE,LABEL=(8&,NL), 

DISP=COLD,PASS) 
DSN=SYS1.PASCALVS.PROCLIB,DISP=C(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=FB,LRECL=80,DSORG=PQ), 
UNIT=3339,VOL=SER=DISKVOL, 

SPACE=(TRK,(2,2,2)) 

DSN=PASCALVS.PROCLIB, 

VOL=REF=*%.STEP1.SYSUTI, 
UNIT=TAPE,LABEL=(9,NL), 

DCB=BLKSIZE=3120, 

DISP=COLD,PASS) 
DSN=SYS2.SAMPLE.PASCAL,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=FB,LRECL=80,DSORG=PQ), 
UNIT=3330,VOL=SER=DISKVOL, 
SPACE=(TRK,(5,2,2)) 
DSN=SAMPLE.PASCAL, 
VOL-REF=*.STEP1.SYSUT1, 
UNIT=TAPE,LABEL=(10,NL), 
DCB=BLKSIZE=3120, 
DISP=C(OLD,PASS) 

DD SYSOUT=* 

DD UNIT=SYSDA,SPACE=C(TRK, (1) 
DD UNIT=SYSDA,SPACE=(TRK,(1} 
DD * 


OUTDD=DS4,INDD-FILE4 
OUTDD=DS5, INDD=FILE5 
OUTDD=D36,INDD=FILE6 
OUTDD=DS7, INDD=FILE? 
OUTDD=0S8,INDD=FILES 
OUTDD=D59,INDD=FILE$ 
OUTDD=DS10.INDD=FILE10 


99. 


Sample installation job: 


Ccontinued in Figure 108 


on page 174) 
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7H 
ff FILE 11-- PASCALVS MESSAGES 


“7/*% (Must be stored unblocked because of BDAM access requirements) 


ER 

“/STEP4 EXEC PGM=IEBGENER 

“/SYSPRINT DD SYSOUT= 

//SYSUT1 DD DSN=PASCALVS.MESSAGES, 
VOL=REF=%.STEP1.SYSUTI1, 
UNIT=TAPE,LABEL=(11,NL), 


DCB=C(LRECL=64,RECFM=FB,BLKSIZE=3200,DEN=3), 

DISP=COLD,PASS) 

DSN=SYS1.PASCALVS.MESSAGES,DISP=C(NEW,CATLG), 

DCB=CLRECL=64,RECFM=F,BLKSIZE-64), 

UNIT=3330,VOL=SER=DISKVOL, 

SPACE=C(TRK, (1,192 
DD DUMMY 


“/SYSIN 


Figure 100. 
and Figure 99) 


B.2.2 The TSO Clists 


Distributed with tha compiler are two 
CLISTs: PASCALVS and PASCMOD. These 
CLISTs reside jn the partitioned data 
set PASCALVS.CLIST (file 8 of the dis- 
tribution tape). 


These CLISTsS should be stored in a pub- 
lic CLIST library that is accessable to 
TS0 users through DDname SYSPROC. 


Each CLIST must be modified so that the 
correct high level qualifier name is 
used to refarence the Pascal/VS data 
sets. In PASCALVS, the symbol named 
"FIRSTNAME™ should be set to the appro- 
priate name. In PASCMOD, the symbols 
named “LIBRARY” and "DEBUGLIB"™ should 
be set to the names cf the Pascal/V5§ 
run time library and the debug library, 
respectively. 


B.2.3 CGataloged Procedures 


Distributed with the compiler are four 
cataloged procedures for invoking the 
compiler from a batch jcb: PASCC, 
PASCCG, PASCCL, and PASCCLG. These 
procedures reside jin the partitioned 
data set PASCALVS.PROCLIB (file 9 of 
the distribution tape). 


These procedures should be stored in a 
cataloged procedure library; so that 
the names Will be recognized when ref- 
erenced from a batch job. 


Each procedure must be customized to 
reflect the data set naming convention 
chesen at your installation. For a 


20 6This is roughly 9400 800-byta blocks. 


Sample installation job: 


Ccontinued from Figure 98 on 


listing of the cataloged procedures see 
"IBM Supplied Cataloged Procedures" on 
page 24. 


B32 LOADING THE SOURCE UNDER CMS 


The compiler source is stored on the 
distribution tape beginning at file 13; 
that is, 12 tape marks from the begin- 
ning of the tape, It consists of nine 
tape files stored in the IEBUPDTE for- 
mat. To read such a format under CMS, 
the TAPPDS command must be utilized. 


The LOADSRC EXEC, which is provided as 
part of the Pascal/VS package, may be 
used to load all of the source files to 
a single disk. To run this EXEC, per- 
form the following: 


1. Have the distribution tape mounted 
at address 181. 


2. Access the disk Where the source 
files are to ba stored in R/W moda. 
The disk must have the equivalent 
of 35 free cylinders of 3330 stor- 
age,?° 


3. Make sure that there is the equiv- 
alant of at least 2 free cylinders 
of 3330 storage on your "A" disk. 


4, Invoke the LOADSRC EXEC as follows: 
LOADSRC fm 
where 'fm'' is the single letter 
file mode of the disk to where the 
source files ara to be placed. Tha 


EXEC will print out messages as it 
processes the tape. 


Once the source files have been 


installed, you may find it desirable to pack them in order to save disk 


storage. 
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B.4 LOADING THE SOURCE UNDER VS2 


The compiler source is stored on the 
distribution tape beginning at file 13. 
It consists of nine tape files stored 
in the IEBUPDTE format. 


File 2 of the distribution tape con- 
tains the JCL which copies the source 
files to disk storage. This file is 
unloaded when the compiler is installed 
and has been given the name 
"LOADSRC.CNTL™., 


Prior to submitting the job, it must be 
customized as follows: 


° In ddname SYSIN of jobstep STEPI, 
the volume serial number of the 
distribution tape should be placed 
where the name TAPEVOL is shown. 


e The UNIT specification for tapes 
has been given the generic name 
"TAPE"; this should be changed to 
the appropriate generic at your 
installation. 


The UNIT specification for disk 
storage has been specified as 
"3330"; this should be changed to 


the appropriate specification at 
your installation. 


The disk volume on which the source 
files are to be stored must replace 
the name "DISKVOL" in the DD state- 
ment named SYSUT2 in each job step. 


The high level qualifier for the 
data set names to be cataloged is 
arbitrary. In the supplied JCL, 
the name "SOURCE" is used. 


If you do not want a listing of the 
source, then DDname SYSPRINT 
should be assigned to DUMMY in each 
of the job steps. 


The tape density is specified with- 
in the DEN suboperand of the DCB 
attributes. In the JCL, DEN is set 
to 3 which indicates a tape density 
of 1600 BPI. If your distribution 
tape is at some other density, then 
the DEN operands should be changed 
accordingly. 
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//LOADSRCE 
SAK 

SFR FILE 13 -- PASCALL PASCAL - PASS 1 SOURCE (COMPILER) 
sf 

//STEPL EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.PASCALL.PASCAL, DISP=(NEW,CATLG), 

ff UNI T=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 

ff VOL=SER=DISKVOL,SPACE=C(TRK,(€132,43,5)) 

//SYSIN DD UNIT=TAPE, VOL=(,RETAIN, SER=-TAPEVOL),LABEL=(€13,NL), 
ff DISP=COLD,PASS), 


JOB ,REGION=50K 


ff DCB=¢€LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=x 

LAK 

Sf FILE 14 ~~ PASCALO PASCAL - PASS 2 SOURCE COPTIMIZER) 
SF 


//STEP2 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.PASCALO.PASCAL,DISP=C(NEW,CATLG), 

ff UNIT=3330,DCB=C(LRECL=80,BLKSIZE=3120,RECFM=FB), 
ff VOL=SER=DISKVOL,SPACE=(TRK,(40,10,5)) 

//3SYSIN DD UNIT=TAPE,VOL=REF=*.STEP1L.SYSIN,LABEL=C€14,NL), 
f/f DISP=COLD,PASS), 

ff DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB, DEN=3) 
//SYSPRINT DD SYSOUT=% 


FILE 15 -- PASCALT PASCAL - PASS 3 SOURCE CTRANSLATOR) 


//STEPS EXEC PGM=IEBUPDTE,PARM=NEW 
“/SYSUT2 DD DSN=SOURCE.PASCALT.PASCAL,DISP=(NEW,CATLG), 


ff UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
ff VOL=SER=DISKVOL, SPACE=(TRK,(€117,39,5)) 

//3SYSIN DD UNIT=TAPE,VOL=REF=*%.STEP1.SYSIN,LABEL=(15,NL), 
tf DISP=COLD,PASS), 

ff DCB=C(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=*% 

SSK 

47% FILE 16 -- PASCALD PASCAL - DEBUG SOURCE 

LS, 


//STEP4 EXEC PGM=IEBUPDTE.PARM=NEW 
//SYSUT2 DD DSN=SOURCE,PASCALD.PASCAL,DISP=CNEW,CATLG), 


ff UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
f/f VOL=SER=DISKVOL,SPACE=(TRK, (33,9,5)) 

//SYSIN DD UNIT=TAPE, VOL=REF=*.STEP1.SYSIN,LABEL=(16,NL), 
ff DISP=C(OLD,PASS), 

ff DCB=C(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT= 

S/R 


Sf¥ FILE 17 -- PASCALX PASCAL - RUN TIME ENVIRONMENT SOURCE 
SFR 

//STEP5 EXEC PGM=ITEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.PASCALX.PASCAL,DISP=(NEW,CATLG), 


ff UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
ff VOL=SER=DISKVOL,SPACE=C(TRK,(69,24,5)3 


//SYSIN DD UNIT=TAPE,VOL=REF=®.STEP1L.SYSIN,LABEL=(€17,NL), 
‘f/f DISP=COLD,PASS), 

ff DCB=C(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=% 


Figure LOL, Listing of the JCL to copy source files from tape: this job is 
stored as file 2 of the distribution tape. (Ccontinued in 
Figure 192 on page 177). 
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77% 
17% FILE 18 -- PASCALZ ASM - RUN TIME ENVIRONMENT SOURCE 
17% 
//STEP6 EXEC PGM=IEBUPDTE,PARM=NEW 
//SYSUT2 DD DSN=SOURCE.PASCALZ.ASM,DISP=(NEW,CATLG), 
UNI T=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
VOL=SER=DISKVOL,SPACE=(TRK,(16,1,4)) 

DD UNIT=TAPE,VOL=REF=%.STEP1.SYSIN,LABEL=(18,NL), 
DISP=COLD,PASS), 
DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 

//SYSPRINT DD SYSOUT=* 


FILE 19 -- MACLIBL PASCAL - %INCLUDE LIBRARY FOR COMPILER 


//STEP7 EXEC PGM=IEBUPDTE,PARM=NEW 

7/SYSUT2 DD DSN=SOURCE.MACLIBL.PASCAL,DISP=(NEW,CATLG), 
UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
VOL=SER=DISKVOL,SPACE=(TRK, (21,7,4)) 

7/SYSIN DD UNIT=TAPE, VOL=REF=%.STEP1.SYSIN,LABEL=(19,NL), 

// DISP=COLD,PASS), 

4/ DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 

7/SYSPRINT DD SYSOUT=* 

77% 

77% FILE 20 -- MACLIBO PASCAL - %INCLUDE LIBRARY FOR OPTIMIZER 

77% 

//STEP& EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE .MACLIBO.PASCAL,DISP=(NEW,CATLG), 
UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM-FB), 
VOL=SER=DISKVOL,SPACE=(TRK,(5,2,3)) 

DD UNIT=TAPE, VOL=REF=%.STEP1.SYSIN,LABEL=(20,NL), 
DISP=(OLD,PASS), 
DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 

//7SYSPRINT DD SYSOUT= 


FILE 21 -- MACLIBT PASCAL - XINCLUDE LIBRARY FOR TRANSLATOR 


//STEP9 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.MACLIBT.PASCAL,DISP=(NEW,CATLG), 
UNI T=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
VOL=SER=DISKVOL, SPACE=(TRK,(19,7,4)) 

“/SYSIN DD UNIT=TAPE,VOL=REF=%.STEP1.SYSIN,LABEL=(21,NL), 

// DISP=C(OLD,PASS), 

4/ DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 

77% 

77% FILE 22 -- MACLIBD PASCAL - %INCLUDE LIBRARY FOR DEBUG 

77% 

//STEP10 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.MACLIBD.PASCAL,DISP=(NEW,CATLG), 
UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
VOL=SER=DISKVOL, SPACE=(TRK,(2,1,15) 

DD UNIT=TAPE, VOL=REF=%.STEP1.SYSIN,LABEL=(22,NL), 
DISP=C(COLD,PASS), 
DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB, DEN=3) 

//SYSPRINT DD SYSOUT= 


FILE 23 ~~ MACLIBX PASCAL - %INCLUDE/MACRO LIBRARY FOR RUN 
ENVIRONMENT 


//STEP11 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.MACLIBX.PASCAL,DISP=(NEW,CATLG), 
UNIT=3330, DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
VOL=SER=DISKVOL, SPACE=(TRK,(9,1,2)) 

DD UNIT=TAPE,VOL=REF=%.STEP1.SYSIN,LABEL=(23,NL), 

DISP=OLD, 
DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 

//SYSPRINT DD SYSOUT=% 


Figure 102. Listing of the JCL to copy source files from tapa: 
from Figure 101) 


(continued 
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APPENDIX C. ADDITIONAL LIBRARY PROCEDURES AND FUNCTIONS 


In addition to the routines described ° CMS Procedure 

in Pascal/VS Reference Manual, order 

number $H20-6168-1, there are several ° LPAD Procedure 
other routines which are not predefined 

but are provided in the Pascal/VS exe- ° RPAD Procedure 


cution library. These routines are : 
° PICTURE Function 
° ITOHS Procedure 
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C.1 CMS PROCEDURE 


Invoke a CMS Command 


| Definition:. 


procedure CMS<¢ 


const 5$ STRING; 
var RC INTEGER); 
EXTERNAL; 

Where: 


S is a STRING that is to be 
executed, 
RC is the return code. 


The STRING specified by S will be 
passed to CMS (via SVC 202) to be exe- 
cuted; the command must be executable 
in the transient area or in a shared 
segment. You must code the declaration 
as shown above, or use the INCLUDE mem- 
ber named "CMS" which is provided in 
the Pascal/VS library. This procedure 
15 applicable under CMS only. 


“INCLUDE CMS 
CMSC'CP Q T', RET); 
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C.2  ITOHS FUNCTION 


Convert an INTEGER to a hex string 


Definition: 


function ITOHS( 

I INTEGER) 
STRINGC8); 
EXTERNAL; 


' Where: 


I is the value to be converted. 


This function converts the parameter I 
into a STRING that contains the hexade- 
cimal representation of the integer. 
You must code the declaration as shown 
above, or use the INCLUDE member named 
"CONVERT" which is provided in the Pas- 
cal/VS library. 


%INCLUDE CONVERT 
WRITELN('The value ',1:0; 


"is '', ITOHS(I), 
" in hexadecimal.'); 


c 


C.3 LPAD PROCEDURE 


Pads or truncates a string on the left 


Definition: 


procedure LPAD( 
var Ss > STRING; 
L : INTEGER; 
c > CHAR); 
EXTERNAL; 


Where: 


S§ is the STRING to be padded; 
L is the final length of S; 
C is the pad character. 


The procedure LPAD pads or truncates 
string variable S$ on the left. If 
LENGTHC(S) is greater than L, then the 
effect is to truncate characters on the 
left. If LENGTH(S) is less than L, 
then the effect is to extend S with the 
character C on the left. You must code 
the declaration as shown above, or use 
the INCLUDE member named "STRING" which 
is provided in the Pascal/VS library. 


“INCLUDE STRING; 


S i= 'ABCDEF’; 
LPAD(CS, 10, '$*); 
produces 'S$S$SSABCDEF' in §S 


§ == 'ABCDEF'; 
LPAD(CS, 5, '$"); 
produces 'BCDEF' in S 


C.4 RPAD PROCEDURE 


Pads or truncates a string on tha 
right 


Definition: 


procedure RPAD(C 
var Ss > STRING; 
L : INTEGER; 
c > CHAR); 
EXTERNAL; 


Where: 
S is the STRING to be padded; 


L is the final length of S$; 
C is the pad character. 


The procedure RPAD pads or truncates 
string variable S on the right. If 
LENGTH(S) is greater than L, then the 
effect is to truncate characters on the 
right. If LENGTH(CS) is less than L, 
then the effect is to extend 5 with the 
character C on the right. You must 
code the declaration as shown above, or 
use the INCLUDE member named "STRING" 
whieh is provided in the Pascal/VS 
library. 


4INCLUDE STRING 


S == 'ABCDEF'S 
RPADCS, 10, '$*); 
produces "ABCDEF$$$$' in S 


§ == "ABCDEF'; 
RPAD(S, 5, '$'); 
produces 'ABCDE' in § 
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C.5 PICTURE FUNCTION 


Formats a floating point value 
according to a "picture" format 


Definition: 
function PICTUREC 
const P : STRING; 
R =: REAL): STRINGC100); 
EXTERNAL; 


Where: 


P is a picture specification; 
R is the number to be formatted. 


The function PICTURE returns the string 
representation of a real number format-— 
ted according to a "picture" specifica- 
tion. The characters that make up the 
picture specification are similar to 
those found in PL/I and COBOL. 


A declaration for PICTURE may be 
obtained by including the member CON- 
VERT from the Pascal/VS library. 


A picture specification may consist of 
two fields: a decimal field and an 
exponent field. The latter is optional; 
the first one is always required. 


The decimal field may consist of two 
subfields: the integer part and the 
fractional part. The latter is 
optional. 


Example of picture specifications: 


$9999 .V99 
9V.999ES99 
$Z22,22Z2,Z229V.99 


A picture character may be grouped into 
the following categories. Picture 
characters may be specified in lower 
case. 


® Digit and decimal-point specifier 


9 specifies that the associated 
position in the data item is to 
contain a decimal digit. 


V divides the decimal field into 
two parts: the integer part and 
the fractional part. This char- 
acter specifies that a decimal 
point is assumed at this posi- 
tion in the associated data 
item. However, it does not spec- 
ify that an actual decimal point 
is to be inserted. The integer 
and fractional parts of the 
assigned value ara aligned on 
the V character; therefore, an 
assigned value may be truncated 
or extended with zero digits at 
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either end. (User beware!) If 
no V character appears, a V is 
assumed at the right end of of 
the decimal field. 


Zero suppression characters 


Z specifies a conditional digit 
position in the character 
string value and may cause a 
leading zero to be replaced with 
a blank. 


% specifies a conditional digit 
position in the character 
string value and may cause a 
leading zero to be replaced with 
an asterisk ('X'). 


leading zeros are those that occur 
in the leftmost digit positions of 
the integer part of floating point 
numbers. 


Insertion character 


Insertion characters are inserted 
into corresponding positions in 
the output string provided that 
zero suppression is not taking 
place. If zeros are being sup- 
pressed when an insertion 
character is encountered, a blank 
or an asterisk will be inserted in 
the corresponding place in the out- 
put string, depending on whether 
the zero-suppression character is 
a Zor an asterisk (x). 


» causes a comma to be inserted 
into the associated position of 
the output string. 


* causes a= point (.) to be 


inserted into the associated 
position of the output string. 
The character never causes 


point alignment in the number. 
That function is served soley by 
the character V. 


B causes a blank to be inserted 
into the associated position of 
the output string. 


Signs and currency symbol 


The sign and currency characters 
C'gt, tet, t=','S") may be used in 
either a static or a drifting man- 
ner. The static use specifies that 
a sign, a currency symbol, or a 
blank always appears in the associ- 
ated position. The drifting use 
specifies that leading zeros ara to 
be suppressed. 


A drifting character is specified 
by multiple use of that character 
in a picture field. 


+ specifies a plus sign character 
(+) if the number is >=0, other- 
wise it specifies a blank. 


- specifies a minus sign charac- specification. The exponent field 
ter (-) if the number is <0, must always be the last field. 
otherwise it specifies a blank. 

E specifies that the associated 


§ specifies a plus sign character position contains the letter E, 
(+) if the number jis >=0, other- which indicates the start of the 
wise it specifies a minus sign exponent field. 


character (-). 
K specifies that the exponent 


$ specifies a dollar sign charac- field appears to the right of 
ter ($). the associated position. It 
does not specify a character 
Exponent specifiers data item. 
The characters 'E' and 'K' delimit See Figure 103 for examples. 


the exponent field of a picture 


"99999! 
"22229! 
1 KKG! 
"22229! 
"22222" 
"eMKg? 
eters 
"$9999! 123. 
"+9999! 123. "+0123" 

"+9999! -123. " 0123' 

"999.99" -123.456 *001.23' 
"999V.99" 123.456 '123.46' 
"222,222,229! 123456. ' 123,456" 
YEE, IKE, ED! 123456.0 *HHH123,456" 
"-22,22Z2,229' ~123456.0 '- 123,456! 
'---,---,--9! -123456.0 ' -123,456' 
"SK, HK, HKIV IG? 123456.78 °$¥*123,456.78' 
"$SS,S$SS,SS9V.99! 123456.78 ’ $123,456.78! 
"S9V.9999ES99" 1.23456 "+1.2346E+00' 
"S9V.9999KS99"' 1.23456 "+1.2346+00' 
*-999.999,V99" 1234.567 *-001.234,57' 
'-9,.999E9! -1234.567 "-1.235E3!' 
'9B9BIBIBIBI' 123456.0 "12345 6! 
*9.9.9.9.9.9° 12345.0 0.1.2.3.4.5' 
"99999S' -12345.0 '12345-' 

"999+" -123.45 "123 ¢ 

"999+" +123.45 "123+" 

"22Z.V99! 0.12 ' 12! 
"2Z2V.99° 0.12 ’ 12? 
"-9V.999ES9" 1.23E4 " 1.230E+4' 
"S9999VESZ9' -123456. "-1235E+ 2! 
"-V.999E-99' 123456. ' .,123E 06° 


"00123! 
"123! 
™*x123! 
J QO! 
J ' 
"HHERRO! 
ES 222 2 
"40123! 


ee ee ° 
ooooqocoeo°9Ie°ceo 


Figure 103. Examples of using the PICTURE function 
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Virtual Machine/Personal Computer 
CVM/PC) is an IBM licensed program that 
runs on the IBM XT/370 Personal Comput-— 
er, VM/PC gives you an interactive 
system that has the characteristics of 
a VM/S5P Release 2 system. 


ThiS appendix gives only the basic 
information needed to use the Pascal/V5S 
Programming language under VM/PC. You 
Will also need one of the following 
manuals: Pascal/VS Reference Manual 
and the Pascal/VS Programmer's Guide; 
order numbers are SH20-6168 and 
§H20-6162 respectively. 


It is assumed that the user has a gen- 
eral knowledge of the VM/PC operating 
environment, and that the VM/PC system 
has been installed and configured. 
Refer to the VM/PC User's Guide for 
more information regarding the VM/PC 
system, 


D.1 INTRODUCING VM/PC FOR PASCAL/VS 


This appendix describes how to use the 
IBM Pascal/VS programming language 
under VM/PC. 


YVM/PC is an IBM licensed program that 
runs on the IBM XT/370 Personal Comput-— 


ar, as an IBM Personal Computer Disk 
Operating System application. VMPC 
gives you an interactive system that 
has the characteristics of a VM/SP 
Release 2 system: command entry, com~ 
mand formats, messages, screen 
formats, file naming conventions, key 


functions and application interfaces. 


To use the Pascal/VS programming lan- 
guage under VMN/PC, a host system must 
be available; this is because you must 
copy (download) the Pascal/V5 compiler 
and library from the host system into 
your local VM/PC storage. Once you 
have done this», you can use the praduct 
either independently of the host 
system, or in connection with the host 
system. 


VM/PC lets you set up a local 370 envi- 
ronment in which to do your work, known 
as a local session. Once you have 
downloaded the Pascal/VS compiler and 
library into your local storage, you 
can use that preduct in local sessions. 


VM/PC also lets you set up a 3277 or 
3101 connection With a host system ona 
remote computer, so that your personal 
computer acts as a terminal on the host 
system; such a connection is known asa 


Appendix D. 


remote session. You can use the prod- 
uct in remote sessions as well as _ in 
local sessions. €However, see “Licens- 
ing Considerations.™) 

To develop Pascal/V5 programs with 
VM/PC, you'll use both types of ses- 
sions, You can use a remote session to 
create and process programs on a host 
system, or to copy (download) the Pas- 
cal/VS compiler and library into your 
local VMPC storage. Once the 
Pascal/VS compiler is available in 
local storage, you create and compile 
Pascal/V5 programs in lecal sesstons. 


You can also mix local and remote ses- 
sions 


efficient. For example, you could cre- 
ate and edit your pregrams in local 
sessions, then copy (upload) them into 
the host system for compilation and 


execution. 
pile your programs on the host system 
in remote sessions, and then download 
the object program for execution in 
local sessions. 


The performance of Pascal/V5S on VM/PC 
is strongly dependent upon the nature 
of the specific job stream, and you may 
very well find that VM/PC performance 
with the Pascal/VS compiler is affected 
by the storage and paging constraints 
imposed by the VM/PC hardware. There- 
fore, as compared to a typical 
Pascal/VS compiler, you may experience 
greatly extended processing times in 
the VM/PC environment. 


D.2 LICENSING CONSIDERATIONS 


You can execute a host-resident 

Pascal/VS compiler from a local 

session. The following considerations 

apply: 

l. When vou execute the Pascal/V5 com- 
Piler in a local session, the com- 
Piler must be licensed for your 


XT/370 machine (whether or not you 
have downloaded the compiler jnto 
XT4370 disk storaga). 


2. To execute a compiled Pascal/VS 
object program in a local session; 
that was compiled and link-edited 
on a host system, a license is not 
required. 


3. When you use a remote session to 
executa Pascal/VS5S object programs 
that were compiled on the host sys- 
tem, a license is not required. 
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in any combination that you find, 


Or you could create and com- | 


D.3 USING VM/PC ° LINK =: which makes a device associ- 
ated with another virtual machine 
available to your virtual machine 


Under VM/PC, you use VM/SP-CMS commands configuration, based upon informa- 
to create, modify, compile, link-edit tion in the user's VM/SP directory 
or load, execute, debug, and test your entry. 


Pascal/VS programs. 

e SPOOL : which modifies the spooling 
The commands most useful to you in per~- control options in effect for one 
forming these tasks are briefly or more virtual spooling devices. 
described in Figure 104. 


You will also find the following CP 
commands useful: 


Command How Used 


ACCESS Activates a virtual disk for use 


EXEC Executes a file that consists of one or 
more CMS commands 


FILEDEF Defines a file and its input/output 
devices 
GLOBAL Specifies text libraries to be searched 


to resolve external references in a 
program being loaded 


INCLUDE Specifies additional text files for use 
during program execution 


LISTFILE Displays a list of your files 


LOAD Places a text fila in storage and 
establishes the linkages for execution 


PRINT Prints a file on the off-line printer 


RENAME Changes the filename, filetype, and/or 
filemode of a file 


SET Establishes, turns off, or resets a particular 
function of the CMS virtual machine 


START Begins execution of a previously loaded 
and link-edited program file 


TYPE Displays all or part of a file at tha 
terminal 
XEDIT Puts you in edit mode to create and 


edit source program and data files and 
lets you use the XEDIT subcommands 


CMS Command Summary 


Figure 104. 
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D.4 METHODS OF USING PASCAL/VS UNDER 
VM/PC 


There are two different ways in which 
you use Pascal/VS under VM/PC: 


1. Copy (download) the Pascal/VS com- 
Piler modules onto local disk 
files, and then invoke Pascal/VS in 
local sessions. CYou need to down- 
load only when you first access 
Pascal/VS, when a new maintenance 
update is applied, or when a new 
release has been installed on the 
host system.) 


2. Link to the host system minidisk 
containing Pascal/VS compiler and 
library, and then access it from 
the local session as a remote mini- 
disk. (You must do this after every 
Initial Program Load ¢IPL) of CMS, 
or whenever the link to the hast 
system 15 severed.) 


Depending on your link with the 
system, and on the system load, 
this often is not an efficient way 
to operate. 


Note As noted under "Licensing Con- 
siderations” above, your VM/PC 
must be licensed for Pascal/V¥S if 
you are to execute the compiler in 
a local session. This is true even 
if you do not download the compiler 
onto your local VM/PC storage. 


D.5 DOWNLOADING THE PASCAL/VS COMPIL~ 
ER INTO VM/PC 


To use Pascal’VS under VM/PC, you can 


copy (download) the Pascal/VS modules 
into your local files. The modules you 
must copy are listed in Figure 105 an 
page 188 


Downloading is necessary only when you 
first access Pascal/VS, or after a new 
release or maintenance updates have 
been installed on the host system. 


Both the virtual storage and minidisk 
storage must be allocated with approxi- 
mately 1.9M bytes. These storage 
requirements are for Pascal/VS compil- 
er and library only: additional storage 
is needed for the source and/or object 
program files. 


Figure 106 on page 188 shews you the 
commands you must issue. The procedure 
is as follows: 


1. Link Cif necessary) and access the 
local minidisk that is the target 
minidisk for the copy operation. If 
the target minidisk is your own 
minidisk, the link is not required. 


2. Link and access the host minidisk 
that contains the Pascal/V5S mod- 
ules. 


3. Copy the Pascal/VS modules from the 
hest minidisk to the local 
minidisk. (This is known as down- 
loading.) 


4. Release the host Pascal/V5 mini- 
disk; it is no longer required. 
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PASCALS MODULE 
PASCALL MODULE 
PASCALO MODULE 
PASCALT MODULE 
PASCALVS TXTLIB 
PASDEBUG TXTLIB 
PASCALVS MACLIB 
PASCALVS EXEC 
PASCMOD EXEC 
PASCALVS MESSAGES 
PASCALVS CMSHELP 


Figure 105. Pascal/VS Modules Needed for Downloading 


LEE ELLE. ehhh tt ttititttittetitittstttstettettetetttstattetetdsttattetetttetatadetetetets 
x 

* 1) Link and access the target VM/PC minidisk. 

x 

CP LINK vm/pc-id ttt aaa W write-password 

ACCESS aaa filemodel 

x 

* 2) Link and access the host minidisk that contains the Pascal/VS 
* compiler and library. 

x 

CP LINK host-id hhh bbb RR read-password REMOTE 

ACCESS bbb filemode2 

x 


* 3) Copy the files you need. 


x 
COPYFILE filename filetype filemode2 = = filemodeli 


x 

* 4) Release the Pascal/VS host minidisk. 
x 

RELEASE filemode2 (¢ DET 

x 


x 
* Where: 

x ttt is the virtual address of the local target minidisk that 
% will store the Pascal/VS modules. 

% aaa is an unused virtual address on the local VM/PC machine. 
x hhh is the virtual address of the host minidisk that contains 
* the Pascal/VS modules. 

x bbb - is the virtual disk address you use to refer to the host 
x disk. 

x filemodel - is the filemode of the target minidisk on the local 
* VM/PC machine. 

x filemode2 - is the filemode of the host minidisk that contains 
x the Pascal/VS modules. 

x 

x 


tt tt 28228222. 2,.2,0,0,0,0,0.0,0,0,0,2,0,2,0,0,0,0.0,0.0.0.0.0,.4.00.0.8 tt ttt ttt tet tt tatetatatatetetetetatetatatatal 


Figure 106. CMS Commands to Download Pascal/VS From a Local Session 
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D.6 ACCESSING THE PASCAL/VS COMPILER 
ON THE HOST 


The other way to use Pascal/VS under 
VM/7PC, is to link to the host system 
minidisk containing Pascal/VS compiler 
and library and then access it from the 
local session as a remote minidisk. 


Linking and accessing are necessary 
whenever there is a an Initial Program 
Load (CIPL) of CMS, and whenever the 
link to the host system severed. 


Depending on your link with the host 
system and on the system load, this 
often is not an efficient way to oper- 
ate compared to downloading. 


The virtual storage requirement is 
approximately 1.0M bytes, but there is 
no additional VM/PC minidisk storage 
requirement for the Pascal/VS compiler 
and library since it resides in the 
host system minidisk storage area. 
Additional storage is needed though for 
the source and/or object program files. 


Figure 107 shows you the commands you 
must issue to link and access tha host 
minidisk that contains the Pascal/VS 
modules. 


2.2.2,0,0.0,0,2,0,2,0,0,0,0.0,.0,.0,.0.2,0,0,0.0,0,2,0,0,2,0,.0,.0,0,0.0,.0,.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.041 


* 


* Link and access the host minidisk that contains the Pascal/VS 


* compiler and library. 
x 


CP LINK host~-id hhh bbb RR read-password REMOTE 


ACCESS bbb filemodel 


Where: 


hhh - is the virtual address of the host minidisk that contains 


the Pascal/VS modules. 


bbb - is the virtual disk address you use to refer to the host 


disk. 


filemodel - is the filemode of the local VM machine 


2.2. 2.2,2,.2,2,.2.0,0,0,0,0,2,2,2,0,2.0,0,%,0,2,2,2,2,9.0,0,0,0,0,2,0,2,2,0,0,0,2,0,5,5,0,0,0,5,2,2,0,2,5,0,0,2,0,0,0.0,0,0,0,2,0,2,5. 00045 


Figure 107. 


CMS Commands’ to Access 
Remote Minidisk 


D.7 INVOKING PASCAL/VS UNDER VM/PC 


You must first make Pascal/VS available 
on a minidisk you can access. For 
example: 


CP LINK userid aaa aaa RR read-password 
ACCESS aaa filemodel 


If Pascal/VS is stored on your A-disk, 
or another disk you can access, you can 
omit the LINK and ACCESS commands. (If 
you must issue these commands each time 
you log on to VM/PC, you can put them 
into your PROFILE EXEC, which issues 
them for you.) 


Next, you can invoke Pascal/VS through 
the following command: 


PASCALVS fn [ft [fm]] [Coptions...£)1] 


where "fn" is the name of the Pascal/VS 
program, "ft" is PASCAL if omitted,and 


Pascal/VS From 


a Local Session as a 


"options™ let you modify the default 
compiler options in force for your 
organization. 


To build a load module, issue the fol- 
lowing command: 


PASCMOD main [fns...] [loptions...[)1] 


where "main™ is the name of the main 
program module, "fns" are the names of 
segment modules and text libraries 
CTXTLIB's) which are to be included, 
and "options"? allow you to override 
default options. 


To invoke the load module, issue the 
following command: 


modname [rtparms.../7] [parms...] 


where "modname" is the name of the load 
module, "rtparms" are the run time 
options, and "parms" are the parameters 
Cif any) being passed to the Pascal 
program. 
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D.8 VM/PC PROCESSING RESTRICTIONS ON 
PASCAL/VS 


The following processing capabilities 
are not available when you are execut- 
ing an object program in a local VM/PC 
session: 


1. Any Pascal/VS restrictions on CMS 
processing apply for VM/PC as well. 


2. Magnetic tape file processing is 
not available: this means that you 
can not define CFILEDEF) a 
Pascal/VS sequential file to a mag- 
netic tape medium. 
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D.9 PASCAL/VS PROGRAMMING TIPS 


You can improve processing time if you 
specify the NOPRINT Pascal/VS compiler 
option that suppresses the generation 
of a program listing Cif a listing is 
not required). NOPRINT automatically 
forces the following three compiler 
options to become active: 


° NOSOURCE 
NOXREF 
NOLIST 


[a] 


access methods 45 


BDAM 45 

BPAM 45 

QSAM 45 
appending to a file 59 
arrays 


storage mapping of 990 
Assembler routines, linking 
to 106-121 
calling Pascal/V5S main program 


from 111 
calling Pascal/V5 routines 
from 1069 


general jnterface 107-108 

minimum interface 106 

receiving parameters 109 
assembly listing 42 
automatic variables 

storage mapping of 89 


batch 
See 05 batch 
BDAM 45 


BLKSIZE 45, 57 
block size attribute 
See BLKSIZE 


BPAM 45 
CALL 


command of T5S0 20 
cataloged procedures 24 


PASCC 25 

PASCCG 26 
PASCCL 27 
PASCCLG 28 


CHECK compiler option 31 
as it applies to 
CASE statements 31 
function routines 31 
pointers 31 
string truncation 32 
subranges 431 
subscripts 41 
checking errors at run tima 63 
CLOSE procedure 55 
closing a file 55 
cMS 9-13 
building load module 12 
compiling under 9-li 
defining files under 13 
invoking load module 13 
CMS procedure 1806 
COBOL 116 
calling from Pascal/vVvS 116 
calling Pascal/V¥S from 117 
code generation 93-104 
See also DSA, 


linkage conventions 
parameter passing, 
PCB, 
PCWA, 
register usage, 
routine format, 
routine invocation 
command syntax 167 
compilation 
under CMS 9-11 
under 05 batch 23-30 
under TSO 15-17 
compiler diagnostics 
under CMS 10 
under TSO 17 
compiler listings 37-43 
assembly 
See assembly listing 
cross-reference 
See cross-reference listing 
ESD 
See ESD table 
source 
See source listing 
compiler messages 
See messages, compiler 
compiler options 31-34 
See also CHECK compiler option, 
DEBUG compiler optioan, 
GOSTMT compiler option, 
LANGLVL compiler option, 
LINECOUNT compiler option, 
LIST compiler option; 
MARGINS compiler option, 
NOCHECK compiler option, 
NODEBUG compiler option; 
NOGOSTMT compiler option, 
NOLIST compiler option, 
NOOPTIMIZE compiler option, 
NOPXREF compiler option; 
NOSOURCE compiler option, 
NOWARNING compiler option, 
NOXREF compiler option, 
OPTIMIZE compiler option, 
PAGEWIDTH compiler option, 
PXREF compiler option, 
SEQUENCE compiler option, 
SOURCE compiler option, 
WARNING compiler option, 
XREF compiler option 
console input/output ¢? 
CONSOLE option 
of PASCALVS CLIST 16 
of PASCALVS EXEC 10 
COUNT run time option 35 
cross-reference listing 40-41 


[> | 


data set attributes 45 
See also LRECL, RECFM, BLKSIZE 
data set definitions 
See file definitions 
DCB attributes 
See data set attributes 
DDname 
OPEN specification 57 
DDname association 45 


DEBUG compiler option 32 
debug facility 67-87 
commands 67-79 


break 68 
clear 68 
CMS 69 


display 69 
display breaks 70 
display equates 70 


equate 71 


help 73 
listvars 73 
qualify 74 
quit 74 
reset 75 
set attr 75 
set count 76 
set trace 76 
trace 77 
view memory 78 
view variable 77 
walk 79 
input to 67 
output from 67 
qualification 67 
DEBUG option 
of PASCMOD CLIST 19 
of PASCMOD EXEC 12 
of run time 35 
debugging a program 
interactive debugger 
See debug facility 
traceback facility 61 
DEF variables 
storage mapping of 89 
default 


BLKSIZE 45 
LRECL 45 
RECFM 45 


DISK option 

of PASCALVS EXEC 9 
DSA (dynamic storage area?) 
dump 

symbolic variable 65 
dynamic storage area 

See DSA 
dynamic variables 

storage mapping of 89 


fe] 


end-of-file condition 

for record files 54 

for text file 54 
end-of-line condition 53 
enumerated scalar 

storage mapping of 90 
EQF function 54 
EOLN function 53 
EPILOG Assembler macro 107 
ERRCOUNT run time option 35 
ERRFILE run time option 35 
errors 

execution time 

intercepting 64 

ESD table 43 
executing a program 

under 0S batch 23-30 
execution error handling 63 
execution errors 
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94 


intercepting 64 
external symbol dictionary 
See ESD table 


file control block 
See PCB 
file definitions 
under CMS 13 
under 0S batch 29 
under TSO 20 
files 
See also input/output facilities 
See also record files 
See also text files 
storage mapping of 91 
FORTRAN 114 
calling from Pascal/VS 114 
calling Pascal/VS from 115 
function invocation 
See routine invocation 


[s ] 


GET procedure 48 
record files 48 
text files 48 
GOSTMT compiler option 32 
GS compiler option 
See GOSTMT compiler option 


Le] 


HEAP run time option 35 


[| 


I/O facilities 
See input/output facilities 
“INCLUDE facility 
under CMS 10 
under 0S batch 29 
under TSO 17 
input/output facilities 45-59 
implementation 45 
record files 
See record files 
text files 
See text files 
installation instructions 169-177 
compiler source 
under CMS 174 
under VS2 175 
for CMS 170 
for OS/VS2 171-174 
cataloged procedures 174 
CLIST customizing 174 
loading compiler 171-174 
regenerating compiler under 
CMS 170 
tnteractive files 46, 51 
INTERACTIVE open option 46, 58 


intercepting execution errors 64 
interlanguage communication 105-121 
Assembler 106 
COBOL 116 
data type equivalencing 120 
FORTRAN 114 
PL/I 118 
ITOHS function 180 


JCL 23 
job control language 23 


LANGLVL compiler option 32 
LC compiler option 
See LINECOUNT compiler option 
LIB option 
of PASCALVS CLIST 16 
of PASCMOD CLIST 19 
LINECOUNT compiler option 32 
linkage conventions 93 
LIST compiler option 32 
listing 
See compiler listings 
load module 
creating under CMS 12 
creating under TSO 18 
invoking under CMS 13 
invoking under TSO 20 
logical record length 
See LRECL 
LPAD procedure 181 
LRECL 45, 57 
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MACLIB access 
See partitioned data set 
MAIN directive 109, 114, 115, 116, 
117, 118, 120 
MAINT run time option 35 
MARGINS compiler option 33 
MEMBER open option 58 
messages 133-163 
compiler 133-153 
DEBUG 161 
execution time messages 154 
PASCALVS exec 163 
MVS batch 
See 0S batch 


[» ] 


NAME open option 58 
NAME option 

of PASCMOD EXEC 12 
NOCC open option 57 
NOCHECK compiler option 31 
NOCHECK run time option 35 
NODEBUG compiler option 32 


NOGOSTMT compiler option 32 
NOGS compiler option 

See NOGOSTMT compiler option 
NOLIB option 

of PASCALVS CLIST 16 
NOLIST compiler option 32 
non-text files 

See record files 
NOOBJ option 

of PASCALVS EXEC 10 
NOOBJECT option 

of PASCALVS CLIST 16 
NOOPT compiler option 

See NOOPTIMIZE compiler option 
NOOPTIMIZE compiler option 33 
NOPRINT option 

of PASCALVS CLIST 16 

of PASCALVS EXEC 10 
NOPXREF compiler option 34 
NOS compiler option 

See NOSOURCE compiler option 
NOSE@ compiler option 

See NOSEQUENCE compiler option 
NOSEQUENCE compiler option 34 
NOSOURCE compiler option 34 
NOSPIE run time option 35 
NOWARNING compiler option 34 
NOX compiler option 

See NOXREF compiler option 
NOXREF compiler option 34 


[| 


OBJECT option 
of PASCALVS CLIST 15 
of PASCMOD CLIST 19 
open options 56 
INTERACTIVE 46 
opening a file 
for input 46 
for interactive input 46 
for output 47 
for terminal I/0 47 
for update 47 
OPT compiler option 
See OPTIMIZE compiler option 
OPTIMIZE compiler option 33 
0S batch 23-30 
cataloged procedures 23 
compiling under 23 
executing under 23 


[| 


Page cross reference 34 
PAGE procedure 53 
PAGEWIDTH compiler option 33 
parameter passing 97-98 
by value 937 
function results 98 
read-only reference (CONST) 97 
read/write reference (VAR) 97 
routine parameters 98 
partitioned data set 56, 58 
access under CMS 56 
opening 56 
Pascal communication work area 
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